LEXIKON 
DER 


COMPUTERTECHNIK 


MIKRO- 
ELEKTRONIK 
Heute-Morgen- 
Übermorgen 


Von Stratis Karamanolis 
183$., zahlr. Abb., 28,- 
DM 

Aus dem Inhalt: 

Die ‘Ware‘ Information - 
Vom Edisoneffekt zum Mi- 
kroprozessor - Gate-Ar- 
rays - Binärzahlen und Di- 
gitalsignale - CPU - Mas- 
senspeicher - Ein-/Aus- 
gabe-Geräte - Rechnen 
beim fast absoluten Null- 
punkt - Rechnen m. Licht- 


geschw. - Nachbildung 
d. menschl. Gehirns - 
TV-Satelliten - Kabel- 


fernsehen - Datex u.v.m. 


Christian Widuch, Nordstr. 22, 3443 Herleshausen, 05654/6182 


Lexikon der 


Computertechnik 


Von Klaus Vits, 205 S., 
über 1800 ‚Begriffe, DM 
28,00 

Das vorliegende Lexikon 
beschränkt sich auf die 
Computertechnik im ei- 
gentlichen Sinne und bie- 
tet daher eine handliche 
und jedermann zugäng- 
liche Hilfe für den täg- 
lichen Gebrauch. 

Eine mehrjährige Erfah- 
rung auf dem Gebiet der 
Computertechnik ermög- 
licht es dem Autor, die 
richtige Auswahl der Fach- 
begriffe zutreffen undeine 
ebenso präzise wie ver- 
ständliche Form ihrer Er- 
läuterung zu finden. 


HX-20 BASIC 
HANDBUCH.“ 


Ein handlicher Kurs für 
das Selbststudium, der 
die Grundlagen sowie 
zahlreiche Kniffe im 
Rahmen der Programmie- 
rung des EPSON-HX-20 er- 
läutert. Viele Beispiele, 
Demo-Programme und de- 
taillierte Erklärung aller 
Statements. 

Deutsche Übersetzung d. 
engl. Orig. - Ausg./(C) by 
Microsoft u. Epson. 


Logik des 


Programmierens 
Eine Einführung in 
grundlegende Pro- 
grammstrukturen 
für Anfänger 


Von K. L. Butte, 140 S., 57 
Abb., DM 24,80 

Aus dem Inhalt: 

Grundlegende Programm- 
strukturen - Programm- 
verzweigungen - Unbe- 
dingte_Programmsprünge 
-Programmschleifen - Ein- 
fache Unterprogramme - 
Komplexe Programm- 
strukturen -Dialog-Pro- 
gramme -Fehlerbehand- 
lung - Programmdoku- 
mentation usw. 


HX -20 
BASIC 
HANDBUCH 


So arbeiten 
Mikrocomputer 


Von Hans Geiger, 135 
$., 70 Abb., DM 19,80. 
Aus dem Inhalt: 
Mikrocomputer ero- 
bern unsere Welt - Mi- 
krocomputer und ihre 
Einteilung -Mikrocom- 
puter: Grenzen und 
Möglichkeiten - Mi- 
krocomputer und ihre 
Baugruppen - Das Adres- 
siersystem - Das Bus- 
System -Speicherarten 
und ihre Bedeutung - 
Eingabe-/Ausgabe-Ein- 
richtungen - Anwen- 
dungen - Marktüber- 
sicht usw. 


Karkkudwig Butie 


Logik 
des 
Programmierens 


Eine Ein 
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Software 
VC-20 
Begrifferaten 
Sammler 


TI-99 
Super Kong 
Donald der Dschungelheld 


Commodore 64 
Car Action 
Zeppelin Command 


Rubriken 


Nussknacker 
Tips & Tricks 
Club-Infos 
Terminkalender 
Wörterbuch 
Kleinanzeigen 
Water Way Kassettenservice 
Galaxians CPU-Bibliothek 
TIP-TAP 
Circus 


ZX-Spectrum 

Türme von Hanoi 
Disassembler 
Aufgabenhilfe Mathematik 


Dragon 
Panzer 
Reflex-R 


ZX-81 
Boxen 
Lebenswandeltest 


Bit 90 
Fluchtversuch 


Inhalt 


Testberichte: 
Sanyo 2001 


Acorn Electron 


Arbeiten am Bildschirm — 
dem Menschen angepaßt 


Markt-Infos 303,55 
Serie 


Assembler-Kurs 


Software-Reviews 
Nifty Lifty (BBC-B) 

Hustler und 

Pool Challenge (C-64) 


Darüber hinaus gibts natürlich jede Menge 
_ Markt-Infos, 
_ viele Toplistings, 
_ heißeste Trends, 
_ Tips & Tricks, 


_ Veranstaltungshinweise für Funk und Fern 
_ Bücher-Review$ und, und, und... 


Ein leistungsfähiger Hein 


Bringen Sie sich zunächs 


cOMPUTE MIT hilft Ihner 


sehen zum Thema Computer 


COMPUTE MIT erscheint 
ROESKE Verlag Fuldaer Straße 6 


3440 Eschwege 


ao 


TESTBERICHT ——m——n 


Apple-Kompatibilität für weniger als 600 Mark: 


viel Komfort und hohe Leistung ud 


Seit wenigen Monaten ist der neue Laser 2001 von Sanyo-Video 
- auf dem deutschen Markt. Waren die 110/210/310-Modelle 
vornehmlich für den Einsteiger konzipiert, der möglichst viel 
Computerspaß für wenig Geld sucht, so versteht sich der 2001 
als ernst zu nehmender Konkurrent zu Commodore 64, Atari 
800 XL, Acorn Electron und Bit-90. 
Ein CPU-Leser, Herr Alfred Heitmann, der aktives Mitglied der 
Apple User Group Europe (A.U.G.E.), Diplom-Ingenieur und 
alter Computer-Hase ist, hat sich den Laser einmal näher ange- 
schaut und recht interessante Ergebnisse an’s Tageslicht 


gefördert. 


Ihre CPU bringt den Bericht, wie er uns von Herrn Heitmann ge- 
liefert wurde, möchte aber betonen, daß die Meinung des Testers 
nicht unbedingt die Ansichten der Redaktion wiedergibt. 
Bevor wir Sie nun Herrn Heitmann anvertrauen, hier noch ein 
Hinweis für diejenigen unter Ihnen, die vielleicht schon einen La- 
ser besitzen. Herr Heitmann hat viele seiner Testergebnisse in 
einer Reihe von Listings festgehalten, die Ihnen die Leistungs- 
merkmale des vorgestellten Rechners verdeutlichen. 


Mein I1l-jähriger Sohn hat 
seit Weihnachten einen La- 
ser 110. Er war damit zu- 
nächst erst gar nicht zufrie- 
den, denn es gab dafür am 
Anfang kaum Spiele. 

Da sein älterer Bruder (16 
Jahre) einen Apple-kompa- 
tiblen Rechner (Lazar IlIze) 
besitzt (mit einer großen An- 
zahl von Spielen), stellte er 
natürlich hier Vergleiche an 
und war mit seinem Laser 
110 (mit 16K-Erweiterung) 
nicht zufrieden. 

Er wollte also einen anderen 
Rechner haben. Durch Zu- 
fall sah er auf einer Com- 
puter-Ausstellung den Laser 
2001 undbatmich, ihm einen 
zu kaufen. 

Ich habe mich dann näher 
informiert und war danach 
auch überzeugt, daß dies der 
geeignete Rechner wäre. 
Mein Sohn wollte den Rech- 
ner aber "erst auf Probe”, - 
die wurde bestanden - er hat 
den Laser 2001! 

Wir haben den Rechner mit 
in den Urlaub genommen 
(um bei schlechtem Wetter 
auch eine vernünftige Be- 
schäftigung zu haben - wie 
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mein Sohn meinte). Da mir 
das Gerät gefiel, entschloß 
ich mich, einen Erfahrungs- 
bericht über den Laser 2001 
zu schreiben. 

Die Ergebnisse meines Tests 
finden Sie hauptsächlich in 
Form von abgetippten Apple- 
Programmen und Eigen- 
Entwicklungen von mir und 
meinen Kindern. Die Pro- 
gramme sollen für sich 
sprechen. 

Als Kritikpunkte will ich zu- 
nächst. einmal folgendes 
erwähnen: 

1. Der Rechner wird noch 
verhältnismäßig warm - aber 
er ist auch bei ca. 36 Grad C 
Zimmertemerpatur nach 
über 2 Stunden nicht ausge- 
stiegen. Wie mir bei Sanyo- 
Video aber versichert wurde, 
wird dies demnächst durch 
ein integriertes Netzteil 
weitestgehend abgestellt. 

2. Der Ein-/Aus-Schalter 
scheint mir nicht sehr stabil. 
Um dort keine Probleme zu 
haben, haben wir ihn immer 
eingeschaltet gelassen und 
eine Steckerleiste benutzt, 
um damit ein- und auszu- 
schalten. Apple-Rechner 
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sind daähnlich empfindlich. 
Wir haben deshalb in der 
Firma an allen Apple- 
Rechnern Steckerleisten. 
Das hat dann noch den Vor- 
teil, daß nicht alle Geräte ein- 
und ausgeschaltet werden 
müssen. (Reparatur oder Aus- 
tausch eines Netzteiles ist 
sehr viel teurer als eine 
Steckerleiste.) 

Ich las neulich einen Test- 
bericht, der in einer anderen 
Mikrocomputer-Fachzeit- 
schrift erschienen ist (eine 
der ersten Mikrocomputer- 
Zeitschriften auf dem deut- 
schen Markt), der mich je- 
doch als Testbericht sehr ver- 
wunderte. Ich möchte des- 
halb aufeinige Punkte dieses 
Tests eingehen: 

Als erstes ist mir aufgefallen, 
daß gleich in der Überschrift 
von der"betagten” CPU 6502 
gesprochen wird. Der Laser 
2001 hat abereinen 6502A, ist 
also z.B. doppelt so schnell 
als ein Apple IIeoderein Ap- 
ple II+. Auch wird in dem 
ganzen Test nicht ein Wort 
über Apple-Kompatibilität 
erwähnt. Dies mag man viel- 
leicht noch entschuldigen, 


» 
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da nicht einmal Sanyo Video 
in der Werbung darauf hin- 
weist, also der Tester auch 
gar nicht darauf gesehen hat, 
denn nicht jeder Tester kann 
jeden Rechner kennen. Also 
nehmeich einmal an. der Te- 
ster kannte Apple II-Rechner 
nicht. 

Dieser Tester hat den Laser 
2001 geöffnet und fand sich 
damit "in die Anfänge der 
Elektronik” versetzt. Dazu 
muß ich sagen, daß ich den 
Rechner nicht geöffnet habe, 
denn wenn ich einen Com- 
puter, der derartiges leistet, 
für 598,- DM habe, öffne ich 
ihn nicht. Vor allen Dingen 
fandich, daß man dann auch 
noch zum Beweis fotogra- 
fiert und in der Zeitung ab- 
druckt .... darüber mögen 
sich die Leser ihre eigenen 
Gedanken machen. 

Aber nun zurück zur Sach- 
lichkeit: 

1. Sie finden im folgenden ei- 
nen Benchmark-Test mit 
dem Laser 2001 im Vergleich 
zu Apple IIe sowie Commo- 
dore 64. 
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Laser 2001 


hier kommt 
CPU 6502 A 
also voll 

zur Geltung! 


2. Hardwareausstattung 

2.1. RAM 32 KByte (Arbeits- 
speicher) 

2.2. ROM 16KByte (enthält 
erweitertes Microsoft-Basic - 
bis auf ganz wenige Befehle 
Apple II-kompatibel). Fol- 
gende Apple II-Basic-Be- 
fehle kennt der Laser 2001 
nicht: 


Laser 2001 Apple IIe/ 
Apple II+ 
GR HGR 
PLOT HPLOT 
RAM(0) FRE(0) 


Folgende zusätzliche Basic- 
Befehle für Laser 2001: 
LLIST (wie List, aber zum 
Drucker) 

LPRINT (wie Print. aber zum 
Drucker) 

RECT (zeichnet im Grafik- 
betrieb Rechteck) 
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Commodore 64 


Apple Ile 
8:2 9:13 
d: 


INVERSE 
NORMAL 
DEF FN und FN (wie man 
dies mit GOSUB umgehen 


kann, ist im Programm 
‘Lohnsteuer’ gezeigt) 
Folgende Basic-Befehle sind 
"anders” als beim Apple IJ: 


UNPLOT (löscht Bildpunkt 
im Grafikbetrieb) 
UNPLOT/TO (löscht Ge- 
rade im Grafikbetrieb) 
SGEN (erzeugt Ton/Musik) 
SOUND (erzeugt Ton. Kanal 
l: Ton, Dauer, Volume. Ka- 
nal 2, Kanal 3 


VPEEK (liest Speicherzelle 
im Video-RAM) 

VPOKE (setzt Speicherzelle 
im Video-RAM) 

für Joysticks des Laser 2001 
und Einbindung im Basic- 
Programm (siehe ent- 
sprechendes Beispiel-Pro- 
gramm) 

FIRE (Feuerknopf gedrückt) 
=PEEK (21) 

JOYLI (linker Joystick- 
Knopf gedrückt)=PEEK(24) 
JOYRE (rechter Joystick- 
Knopf gedrückt)=PEEK (19) 
2.3. Bildschirmgröße 36 
Zeichen je Zeile (Apple II- 
Rechner 40 Zeichen, d.h. 
nicht kompatibel, fällt aber 
kaum auf, nach 36 Zeichen 
geht es eben in der nächsten 
Zeile weiter 

24 Zeilen (wie bei Apple IIe/ 
II+) 

2.4. Durch 2 Tasten — > 
und durch drücken der Shift 
TasteL und praktisch’ "Full- 
Screen-Editor”. 

2.5. Hochauflösende Grafik 
(wie bei Apple IIe/II+) 
256x192=49152 Bildpunkte, 
16 Farben 


2.6. Tastatur 

Standard "Qwerty”-Tastatur 
mit Groß-/Kleinschreibung 
(ASCI) mit 48 Tasten. 

2.7. Video-/Audio-Ausgang 
für Monochrome oder Farb- 
monitor, eingebauter HF- 
Modulator für den direkten 
Anschluß an den Antennen- 
ausgang eines Fernseh- 
gerätes (S/W oder Color). 
Programmierbarer 4-Kanal- 
Tongenerator (Wiedergabe 
über Lautsprecher des Fern- 
sehgerätes). Monitor und 
Fernseher können gleich- 
zeitig angeschlossen wer- 
den! 

2.8. Kassetten-Recorder- 
Interface 300 Baud (wie bei 
Apple IIe/II+) 

2.9. Anschlüsse für 2 Joy- 
sticks eingebaut 

2.10. Anschluß für Spiel- 
kassetten 

2.11. Schnittstelle zum An- 
schluß eines Druckers: Cen- 
tronics (parallel) - die ge- 
bräuchlichste Schnittstelle 
für Druckeranschluß. 

Diese beschriebene Hard- 
ware-Grundausstattung ko- 
stet DM 598,-. 

3. Hardware-Erweiterungen 
3.1. Diskettenlaufwerke (max. 
2 anschließbar) 

3.2. 16K-RAM-Modul (damit 
erweiterbar auf max. 48K) 
3.3. Steckfassung für Hard- 
ware-Kassetten (für Spiele 
und/oder ROM-residente 
Software) 

3.4. Adapter für Coleco- 
Spiele (Laser Adapter), mit 
dem sich alle Spiele von Co- 
leco Vision verwenden las- 
sen (mit dem CBS-Coleco 
Vision-Converter können 
dann auch alle Atari-Spiele 
genutzt werden, - wurde von 
meinem Il-jährigen Sohn 
getestet” ... es funktioniert! 
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1 REN fuer LASER 2881 
2 REN ohne notwendige Aenderungen 

3 REN nur einige Ergaenzungen vorgenonnen 
4 REN 
5 
N 


REN Prosrann laeft doppelt 30 schnell 11! 


6 REN als auf APPLE II* , APPLE Ile 

? REN Erganzungen von: A. Heitmann 

8 REN . Hanburo,den 29.07.84 
9 REN 

99 RESTORE 


1898 REM ......LINERRE OPTIMIERUNG 
102 REM ....,.Panenannunnnsnsuunss 
118 : 


120 HONE : LPRINT SPLC S2;"Lineare Optinieru 
no": LPRINT 


138 RERD PS: REM Minimum oder Maxinun 

131 LPRINT P& 

148 RERD V: REM finzahl der Variablen 

141 LPRINT "Anzahl der Variabl. *;V 

150 READ R 

151 LPRINT "R = ";R 

160 READ S: REN Anzahl der >= Bedingungen 
161 LPRINT "Anz. der >= 
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170 READ T: REN Anzahl der = Bedingungen 
171 LPRINT "Anzahl der =Bedine, ";T 
1BUN=R+S+T 


199 N= NM + V + 8: REM Anzahl der Nebenbeding 
ungen 


200 P = 1: IF PS = "" THENP= -1 

210 DIM BC99,CC9),DC.), MEHILKCH,YCH,AK 
9,9) 

220 : 

230 K=ı 


240 FORI=M+LTONM+Y 
259 YJ) = K 

WU KuK+t 

270 NEXT J 

2808 IF R = @ THEN 378 
2aK=Ve+i 

308 FOR J=1TOR 
ed =K 

320 KuK+ı 

339 NEXT J 

348 FORI=1 0 N 
359 I) = 8 

360 NEXT I 

370 IF S = & THEN 438 
3BBK=eN+Ve+L 

398 FR. i+V+ITON 
409 I) =K 

4M1aK=K+t 

429 NEXT J 

430 IF S = @ AND T = @ THEN 588 
4UKeVHR+LI 

458 FORJ=R+LTON 
468 YcJ) = K 

478 DJ) = 10888 
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48 KaK+ı 

499 NEXT J 

508 FORI=1ı TOM 

510 XI) = YclDD 

528 NEXT I 

2 LPRINT "Koeff. der Zielfunktion :": LPRIN 


531 FORI=N+LTON+V 


548 RERD DCI): REM Koeffizienten der Zielfun 
ktion 


$41 LPRINT 15" : 5061) 
559 I) = - XI) P 

560 NEXT I 

570 FORI=1 TON 

588 READ BEI): REN Rechte Seite 


581 LPRINT "Rechte Seite 


L" KDD 

598 NEXT I 

688 FORI=1 TOM 

618 FOR J=1 TON 

628 IF I = J THEN ACI,J) = 1: GOTO 648 

648 NEXT J 

65@ NEXT I 

668 FORI=1ITOM 

678 FORI=N+LTONM+V 

RERD ACI,JI: REM Matrix der Nebenbedinau 


681 LPRINT “Natrix der Neb.-Bed. 
3 HRCLID 


“br,tidi® 


698 NEXT J 

700 NEXT I 

?ı9 IF S = 0 THEN 776 

?28 FORI=1T08 

7 KR+LM+VD. - 1 
?49 NEXT I 

750 : 

760 REN ....Sinplex-Verfahren 
779 FORI=1L TOM 

?88 FORJ=1LTON 

?98 IF XI) C > YCJ) THEN 810 
888 CAT) = DI) 

810 NEXT J 

820 NEXT I 

839 IT = 8 

848 FOR J=IL TON 

850 2) “0 

868 FORI=1L TOM 

878 A) = AI + CD) 3 AL, 
888 NEXT I 

899 WI) = ZI) - DI) 

908 NEXT J 

902.08 

928 FORI=1 TON 

938 2 = 2 + CI) 3 BCl) 

948 NEXT I 

959 IT=IT+1 
IEOC=MId:ER | 

370 FORJ=2TON 

388 IF WI) < C THEN 1888 


390 C = MII:E = J 
1098 


NEXT J 
IF C > @ THEN 1338 


1828 H=N+V:GeNM+i 


1038 
1848 


IF NM = R THEN 1188 
FORI=1T0N 


1 Q=R+I 


1068 
1978 


FOR I = TOM 
IF XI) = YCJD THEN PRINT “unbeschraenk 


te Loesung": END 


1088 


1998 
1198 
1118 
1128 
1138 
1148 
1158 
1168 
1178 
“ 


1188 
2181 


1198 
RINT 


1290 
1218 
1228 
1238 
1248 
1238 
1268 
1278 


1280 
den 


1298 
2): 


1398 
1318 


NEXT J 

NEXT I 

FORK=GTOH 

FORI=ı TON 

IF YCK) = XC1) THEN 1158 
NEXT I 

IF WCK) = @ THEN 1170 

NEXT K 

COTO 1188 

LPRINT *optinale Loesung NICHT EINDEUTIG 
LPRINT "optinale Loesung:" 
LPRINT "==-mannnnnnnnnn “ 


LPRINT * nach : *;1T;" Iterationen:*: LP 


FORI=ITON 

IF BI <> 8 THEN 1249 
LPRINT "entartete Loesung" 
c0T0 1258 

NEXT I 

FORI=1T0M 

LPRINT *ROHKCDIE I m BCl) 
NEXT I 


LPRINT : LPRINT “uebrige: Variablen haben 
Wert Hull“: LPRINT 


IF P = I THEN LPRINT "Maximum = "; ABS 
END 


LPRINT "Minimum = *; ABS CZ) 
END 


1328 : 


1338 
1348 
1358 
1368 
1978 
1388 
1398 
1498 
1818 


F = 1E25:0 = 8 
FORI=LTON 

IF ACLLEI < = 0 THEN 1398 
Ke Kid / Ale) 

IFX> = F THEN 1998 
Fex:D=l 

NEXT I 

IF D > @ THEN 1430 


LPRINT : LPRINT "keine Loesung noeslich" 


® END 


1428 : 


1438 
1448 
1458 


1468- 


1478 
1488 
1498 
1588 


x = A(D,E) 

KD) = MD) /X 
FORJ=1 TON 
RD,II = AKDII/KX 
NEXT J 
FORI=17T0N 

IF I =D THEN 1558 
x = ACLE) 
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GROSSE FREUNDSCHAFTS-. 
WERBEAKTION ınCPU 


Kennen Sie unsere Zeitschrift -CPU- bereits und haben 


Freunde und Bekannte die ebenfalls begeisterte Hobby- 
programmierer sind, dann sollten Sie ihnen 


einmal -CPU- vorstellen. 


Unser Dankeschön für jeden neuen Abonnenten sind 
3 tolle Spielekassetten nach Ihrer Wahl aus 
unserem Kassettenservice-Angebot. 
Schneiden Sie bitte den markierten Abschnitt-aus 


und schicken ihn vollständig ausgefüllt in einem 
frankierten Umschlag an den 


ROESKE Verlag 
3440 Eschwege 
Fuldaerstraße 6 


An- 

schrift 
des gewor- 
benen Abonnenten: 


Die 
3 Kassetten 
schicken Sie bitte 
an folgende 
Adresse: 


Name, Vorname 


Name, Vorname 


Straße 

Alter 
PLZ/Ort 
“gewünschte Kassetten Straße 
für Computer 

PLZ/Ort 


Hiermit bestelle ich “CPU” ab der nächsterreichbaren 
Ausgabe für die Mindestdauer von einem Jahr zum Preis von DM 55,- 
(12 Exempl.) statt DM 66,- inclusive Porto und Verpackung. 
® 


"bitte genaue Heftnummern und Computer angeben 
(zB. CPU 4/84, 5/84, 6/84 für ZX-81) 


Die Kündigung des Abonnements muß jeweils 3 Monate vor Ablauf des 
Bezugszeitraumes erfolgen. Ist dies nicht der Fall, 
Die Versendung der Prämie erfolgt, sobald die Rechnung jeasbaen cher en Balz Menale; 
bezahlt wurde. Die Zahlung des Betrages hat sofort nach Rechnungsstellung 
zu erfolgen. 


o 
Mir ist bekannt, daß ich diese Bestellung innerhalb von 8 Tagen 
bei der Bestelladresse widerrufen kann. 


Datum, Unterschrift 
Bei minderjährigen Unterschrift des Erziehungsberechtigten 


1510 BI = KL) - X 8% BCD) 

1528 FORJ=1 TON 

1530 ACL,II = ACLLD = X 8 ACD,JD 
1548 NEXT J 

1558 NEXT I 

1568 C(D) = DIE) 

1578 XD) = YiE> 

1589 CGOTO 846 

15908 REM .......Daten 

1608 DATA MAX 

1618 DATA 3 

1628 DATA 3,0,8 

1638 DATA 10,58,23 

1648 DATA 20008, 1608,0 

1658 DATA 68,100,76 

1660 DATA 5,18,6 

1678 DATA -1,2,0 

190 HOME : COLOR= 1,13: PRINT "" 


20 PRINT TAB 72);"Test fuer Lesen von u. Sc 
hreiben auf BAND“ 


30 PRINT TAB 247),"von A. Heitmann, Hanbur 


32 PRINT : PRINT TABC 22)" 22.07.04" 


40 PRINT TABC 180); "Recorder auf STOP“: SOUN 
D (170,4,12) 


50 FOR I = 1 TO 9000: NEXT 

55 SOUND (40,10,12) 

100 COLOR® 15,12: GOSUB 165: PRINT ** 
110 PRINT "PROGR.KASSETTE RAUS (J) *; 
120 GET T6: PRINT T@ 

130 IF TO< > "3" THEN 118 

140 PRINT "DATENKASSETTE EINGELEGT (J) *; 
150 GET T8: PRINT Te 

160 IF TEC > *J" THEN 148 

163 GOTO 193 

165 HOME 


170 PRINT Yortunnnnennnnnnhneer herr 
+ 


100 PRINT "Test fuer Lesen u. Schreiben“ 


190 PRINT "trrrrrstnrssterrer ee 
+“: PRINT : RETURN 


193 CLEAR 0." 
DT RL 


198 ANZ = 190 


199 DIM KTOCANZ), VERCANZ),TISCANZ). VLOCANZD.S 
IS ANZ), TTSCANZ,6) 


@0@ PRINT "DATENKASSETTE AM ANFANG (J) "; 
210 GET Ts: PRINT Te 

220 IF TO < > "J" THEN 200 

230 PRINT "DATENERFASSUNG (J/N) *; 
249 GET NEUS: PRINT NEUS 

250 IF NEU® = "N" THEN 5000 

2608 IF NEUS < > "J" THEN 230 

278 PRINT "SICHER (J) “; 

280 GET T9: PRINT T8 

2908 IF TB«< > "J" THEN 230 

3098 COLOR= 1,18: GOSUB 165 

3180 PRINT : PRINT "1 .. ERFASBEN/NRUANLAGE“ 


328 PRINT "2 .. SUCHEN/AENDERN/LOESCHEN" 
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33@ PRINT "3 .. ENDE MIT ABSPEICHERUNG": PRIN 
30 PRINT "AUSWAHL: "; 

350 GET AkS: PRINT ANS:AM = VAL CAWS) 

352 ON AN GOTO 500, 1888,2888 

353 IF AM < 1 OR AH > 3 THEN 388 


355 PRINT CHRE (5 
CHRS (5): SOUND (58 


>; "UNGVELTIG “ 
‚159 


356 FOR I = 1 TO 58: NEXT I 
357 GOTO 348 

370 IF AM = I THEN 500 

371 IF AM = 2 THEN 1008 
372 IF Ah = 3 THEN 2008 
380 END 


400 PRINT CHR® (5); UNGVELTIG I": SOUND ( 
70,3,15): RETURN 


509 REM ERFASSUNG 

502 COLOR= 1,4: GOSUB 505: COTO 635 
505 HOME 

510 PRINT "KATALOG-NR.CEsENDE)" 


s2@ INPUT KT6: IF LEN CKTS) > 9 THEN GOSUB 
408: GOTO 305 


325 IF KTS = "E" THEN 300 
330 PRINT REGAL“ 


54@ INPUT LAS: IF LEN CLA®) > 35 THEN GOSUB 
: 60T0 330 


s5@ PRINT "VERFASSER" 


560 INPUT VES: IF LEN (VES) > 35 THEN GOSUB 
499: GOTO 358 


570 PRINT "TITEL* 


500 INPUT T10: IF LEN CTI®) > 35 THEN COSUB 
498: G0T0 576 


590 PRINT "VERLAG" 


600 INPUT VLS: IF LEN CVLE) > 35 THEN GOSUB 
498: COTO 398 


610 PRINT "SACHGEBIET" 


628 INPUT SiS: IF LEN (VL®) > 35 THEN GOSUB 
408: COTO 618 


630 PRINT "ALLE EINGABEN OK (J/N) *; 
640 GET T8: PRINT T6 

645 IF TO = "N" THEN 305 

630 IF TE< > *J" THEN 636 

651 RETURN 

3X 

660 FOR I = 1 TO ANZ 

670 IF LEN CKTSCH)) = @ THEN X = 1:1 = ANZ 
600 NEXT 


698 IF X = @ THEN PRINT "SPEICHER VOLL I": & 
OUND 28,3: GOTO 300 


788 KTSCX)-= KTE:LABCK) = LAB:VESCK) = VEB:TIG 
x = TI8 


?@1 VLECK) = VLE:SLSCK) = SIE 

?ı98 GOTO 508 

1890 REM SUCHEN 

1005 COLOR= 1,12: GOSUB 3008 

1810 FOR I = 1 TO ANZ 

1815 IF LEN CKTECI)) = © THEN 1368 

1028 IF LEN CKTS) = @ THEN 1070 

1838 X = 1:Y = LEN CKTS):2 = LEN CKTSCI)) 
1048 IFY#+X- 12 2 THEN 1368 


1050 IF KTe = MIDB CKTSCI),X,Y> THEN TTSCI,Z 
LI = KTECH): GOTO 1871 


1068 X = X + 1: GOTO 1848 


1078 IF LEN (LAS) = ® THEN 1126 
1088 X = 1:Y = LEN CLAS):Z = LEN (LABCIDD 
1998 IF(Y+X - 13 > 2 THEN 1368 


1198 IF LAS = MIDS (LABCID.K,YD THEN TT6C1,Z 
L) = LASCI): GOTO 1120 


1110 X = X + 1: GOTO 1890 

1128 IF LEN (VES) = @ THEN 1178 

1130 X = 1:Y = LEN CVEB):Z = LEN CVESCIDD 
1148 IF(Y+X - 1) >) 2 THEN 1968 


1150 IF VES = MID® CVESCI).K.YD THEN TTSCH,Z 
L) = VERCI): COTO 1178 


1160 X = X + 1: COTO 1148 

1170 IF LEN <TIS) = @ THEN 1228 

1188 X = 1:Y = LEN CTIS):2 = LEN CTISCI)) 
1198 IF(Y=X- 1)» 2 THEN 1360 


1208 IF TI6 = MIDS CTISCI),K,Y>D THEN TTSCH,Z 
L) = TIsCI): COTO 1228 


1210 X = X + 1: GOTO 1198 

1228 IF LEN (VLS) = @ THEN 1270 

1230 X = 1:Y = LEN (VLSd:Z = LEN CVLECI)) 
1248 IFY+xX- 1) 2 THEN 1368 


1250 IF VL6 = MIDB (VLEC1),X,Y> THEN TTEC1,2 
L) = VLECL): GOTO 1278 


1268 X = X + 1: GOTO 1248 

12708 IF LEN (SI8) = @ THEN 1328 

12808 X = 1:Y = LEN (S18):2 = LEN (S10C1)) 
1298 IF(Y+X- 19 > 2 THEN 1360 


1308 IF S10 = MIDS (SIMCld,X,Y> THEN TTRCL,Z 
LI = Sıcld: COTO 1326 


1310 X = X + 1: GOTO 1298 

1328 GOSUB 1325: GOTO 1955 
1325 COLOR" 1,13: GOSUB 165 
1338 PRINT KTSC1): PRINT LASCI) 
1346 PRINT VESCID: PRINT TIscı) 


1358 PRINT VLSCI): PRINT SiSC1): PRINT : RETU 
RN 


1355 GOTO 1380 

1368 NEXT I 

1370 GOTO 308 

13808 PRINT "WEITER CJ/N/ESENDE) *; 

13908 GET TS: PRINT T6 

1498 IF T6 = "J* THEN 1800 

1418 IF T6 = "E* THEN I = ANZ: GOTO 1368 
1428 IF TE < > "N" THEN 1388 

1438 GOSUB 1325 

1448 PRINT "AENDERNCJ/N/ESENDE)"; 

1450 GET T8: PRINT T$ 

1468 IF T6 = "J" THEN 1588 

1465 IF T6 = "E* THEN I = ANZ: GOTO 1368 
1470 IF TS < >» "N" THEN 1448 

1488 GOSUB 1325 

1498 PRINT "LOESCHEN (J/ND "; 

1588 GET T6: PRINT T6 

1518 IF T6 = "N" THEN I = ANZ: GOTO 1368 
1528 IF TS < >» *J" THEN 1498 
1538 PRINT "SICHERN (J) "; 
1548 GET T6: PRINT T6 


1558 IF T8< > *J" THEN 1498 
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1568 KTECH) = 
ya "HYLKl)- 


SCI) = "":VESCH) = "":TIscl 
SIR) u "r 


1578 GOTO 1369 


15988 PRINT "ZEILENNR.CI-6)"; 


1598 GET ZL&: PRINT ZL6:ZL = VAL CZLB) 


1600 IF ZL < 1 OR ZL > 6 THEN 4500 


1618 IF ZL = 1 THEN PRINT “KATALOG=-NR.“: INP 
UT KTECI) 
1628 -IE LEN CKTSCI)) = @ THEN 1568 


1638 
“D 


IF ZL = 2 THEN PRINT "REGAL": INPUT LA® 


1648 IF ZL = 3 THEN 
VESCI) 


PRINT "VERFASSER": INPUT 


1650 IF ZL = 4 THEN 
“m 


PRINT "TITEL": INPUT TIs 


1668 
sD 


IF ZL = 5 THEN PRINT "VERLAG": INPUT VL 


1678* IF ZL = 6 THEN 
T SIR) 


PRINT "SACHGEBIET*: INPU 


1688 GOTO 1438 


2088 COLOR= 1,12: GOSUB 165 


2018 PRINT "DATENABSPEICHRUNG AUF KASSETTE" 
2028 PRINT "RECORDER AUFNAHME LREUFT(J)";: SO 
UND (18,4,149,050,4,14) 


2038 GET T$: PRINT T# 


2048 IF TS «< >» "J" THEN 2828 


2058 FOR I = 1 TO ANZ 
20868 IF LEN CKTECI)) = 9 THEN 2888 


2062 KT6 = KTECID:LAB = LABCII:VER = VERCII:TI 
8 = TIBCI):VLS = VLECI):SIS = SIEC) 


2063 KT6 = KT# + BLS:KTS = LEFTS CKT$,9) 


2064 LAS = LA$ + BLS:LAS = LEFTS (LA6,35) 
2065 VES = VES + BLS:VES = LEFTS (VES,35) 
2066 TIs = TIS + BLS:TI$ = LEFT6 (T16,35) 
2067 VL$ = VL6 + BLS:VL$ = LEFTE (VL6,35) 
2068 Si$ = Si$ + BLS:SIE = LEFTE (S18,35) 
2069 B# = KT8 + LA® + VES + TIS + VL6 + SI8 
2071 STORE Bs 
2872 FOR 29 = 1 TO 588: NEXT 29 
2888 NEXT 
2091 FOR 29 = 1 TO 2098: NEXT 
2085 STORE "ENDEN" 


2898 PRINT "RECORDER AUF STOPCI)";: SOUND (28 
,5,15),(78,5,15) 


2095 GET Ts: PRINT T6 


2108 IF T6 < >» "J" THEN 2098 


2118 COLOR= 1,7: GOSUB 165 
2148 PRINT "AUF WIEDERSEHEN": PRINT 
2145 SOUND (28,18,12),(80,18,12) 
2146 SOUND (18,5,13) 
2158 END 

3988 HOME 

3005 TESCI) = "Katalog Nr.":TESC2) = "Regal":T 
E63) = "Verfasser": TESC4) = "Titel": T 
"Verlag":TESC6) = "Sachgebiet" 


3818 FOR I=1T06 


3028 PRINT TAB 2);1; TABC 6);TESCI) 
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3836 NEXT I 


3648 1= 0 


3560 KTECI) = "":LASCI) = "":VESCI) = "":TIScl 
Y mw ":VLECI) = "":Siecl) =» 


3588 PRINT "ZEILENNR.C1-6)"; 


3598 GET ZLS: PRINT ZLE:ZL = VAL CZLE) 


3618 IF ZL = 1 THEN PRINT "KATALOG-NR.“: INP 
ur Kre ; 
3628 IF LEN CKT6) = @ THEN 1568 


3638 IF ZL = 2 THEN PRINT "REGAL": INPUT LAS 


3648 
vEs 


IF ZU = 3 THEN PRINT "VERFASSER": INPUT 


3658 IF ZL = 4 THEN PRINT "TITEL": INPUT TIs 
3668 


IF ZL = 5 THEN PRINT "VERLAG": INPUT VL 


3678 
TS1$ 


IF ZL = 6 THEN PRINT "SACHGEBIET": INPU 


3688 RETURN 
4888 FOR I =1T06 
4818 PRINT TABC 2); TESCI); TABC 1S);TT6C1) 
5008 PRINT "DATEN EINLESEN" 


5018 PRINT "RECORDER GESTARTET (J) ";: 
(28,5,15),158,5,15) 


SOUND. 


5028 GET T$: PRINT TS 


5838 IF T6< > "J" THEN 5818 


5048 FOR I = 1 TO ANZ 
5845 RECALL B6 


5047 IF BS = "ENDER" THEN KTSCI) = "":I = ANZ 
: GOTO 5868 


5048 KTSCI) = LEFTS (B8,9):LASCI) = MIDE CB& 
‚18,35):VESCL) = MIDS CB$,45,359:TIsCI) = MI 
D$ (B6,88,35) 


5958 VLSCI) = 
(B$,158,35) 


MIDS (B$,115,35):S1sCI) = MIDE 


5059 IF LEN CKT$CI)) = @ THEN I = ANZ 


5068 NEXT 


5078 PRINT "RECORDER AUF STOP (J) ";: SOUND ( 
20,5,15),(58,5,15) 


5875 GET T$: PRINT TS 


5038 IF T6 < > "J" THEN 5878 


5098 PRINT "DATENKASSETTE AM ANFANG (J) "; 


5108 GET T$: PRINT T6 


IF TS < 


5118 > "J" THEN 5098 


5128 GOTO 388 


99088 STOP 


1 REM zeichnen eines Gesichtes 

2 REM mm -- 
3 REM 

4 REN unter Benutzung des neuen 


w 


REM Befehles CIRCLE CXX,YY>),RR 
6 REN 


? REN GR = HGR beim APPLE II 

8 REN PLOT = HPLOT beim APLLE II 
9 REN 

18 GR 


28 COLOR= 1,3 

30 CIRCLE (75,50),28 

48 CIRCLE (173,58),28 

5@ PLOT 78,145 TO 75,158 
68 PLOT 188,145 TO 175,158 
?®8 FOR X = 75 TO 175 STEP I 
88 PLOT %,158 

98 NEXT X 

188 CIRCLE (85,68),5 

118 CIRCLE C165,69),5 


128 END 


«seen. HOCHENTAGSBESTINNUNG 


118 
120 FORI=8T06 
130 READ WaCI) 

148 NEXT I 

150 HOME 


160 PRINT : PRINT "DATUM IN DER FORM TT.MN.JJ 
JJ EINGEBEN": PRINT 


170 INPUT "DATUM: ";De 
180 T = VAL C MIDS CD8,1,2) 
190 M = VAL C MIDS (D6,4,2)) 
200 J = VAL C NIDS C06,7,4)) 


210 IF T > 31 OR N > 12 THEN PRINT "282 EIN 
GABEFEHLER!": GOTO 178 


220 IF J< 1901 THEN PRINT “28% NUR JAHRE A 
B 19011*: COTO 178 


230 GOSUB 318 
200.D0-73% 
259 


INT» 


260 PRINT "DER * 
RINT U8CD) 


tdi" IST EIN *: pP 


@7@ PRINT “HEITER? CIND : *;: GET AS 
280 IFRAS< 
290 END 
308 


> "N" THEN 138 


31@ REM TAGESNUMMER SEIT DEN 1.1.1901 


320 D = INT (CI - 1981) 2 1461 7 + 
INT (158 3 0 - 157) 7 53 ng Kg 


a "OD-MIDENCHTI/OCH, 
34® RETURN 
350 


360 DATA SONNTAG, MONTAG,DIENGT 
NHERSTAG, FREITAG, SANSTAG ran 


CPU II 


vVc-20 


Begrifferaten 
für den VC-20 (GV) 


ist Ihnen - zumindest im Prinzip - sicher aus Joachim Fuchsber- 
ger’s ARD-Sendung ”Auf los geht’s los” bekannt: Ein Suchwort 
wird humorvoll umschrieben und soll anhand dieser Definition er- 
raten werden. 

Unser Programm läuft bereits in der 3K-Version des VC-20 und läßt 
sich relativ leicht eintippen. 

Wir wünschen Ihnen viel Spaß und toi, toi, toi! 


1 DIMAZ$(<59) 


18 
11 

12 
26 
3m 
48 
so 
eo 
ro 
= 
73 
so 
sa 


POKE36879,93:POKE36878,15:POKE36869 ,249:G60SUB208 
PR INT " JIIsIDpppispl" > 

AN=B: NZ =C:FORA=1TO4I:AZSCA)="":NEKT 

READA$,B&$: IFA$=" -1"THENRUN 

FORA=1TOLENCAFI 

FRINT"-"5:T1$="0009009" 

NEXT : 

PR INT " EIMEEDeBDSTEDeDeDeDeDE DD" B5 

GETBU&: IFTI$) "0998038" THENG9® 

FRINT"3"30-VAL<TIS) 

IFBUS=" "THEN?® 

FORA=1TOLEN(CAS$) 

IFBU$S=MIDS$(AS$,A, 1 )ANDBUS< >AZSCA)THENPR INT " np" SPC CADBUS:AN=I:AZ=AZ+1:AZS 


<A)=BUS 

1988 NEXTA 

118 IFAN=OTHENPOKE36876,2989:FORT=ITOIOD:NEXT 

128 AN=8:POKE36376,8 

1398 IFAZ<LENCAS)ITHEN?®O 

149 GOTO11 

202 FRINT"WAM BEGRIFFE RATENM" 

21@ PRINT"DIESES SPIEL IST DURCHMPIE TV-SENDUNG 'AUF LOSEGEHTS LOS'" 

228 PRINT"BBEKANNT GEWORDEN. IM WOBEREN TEIL DES BILD- MSCHIRMS WERDEN STRICHE" 
238 PRINT"DIE LAENGE DES WORTES BANZEIGEN.DIE UMSCHREI-MBUNG ERSCHEINT UNTEN.": 
05U8399 

249 FRINT"DRUECKEN SIE NUN EINENMBUCHSTABEN AUF DER MTASTATUR ‚WIRD ENTWEDER" 
258 PRINT"DER BUCHSTABEN AN DIE MRICHTIGE<N) STELLE(N) MGESETZT,ODER ES ER- ar 
OENT" 

268 PRINT"BEIN SIGNALTON.DIESER MBIGNMALTON ZEIGT AN, WDASS ENTWEDER DIESER ": 
GCSUBS98 

878 PRINT"BBUCHSTABEN IM WORT EBNICHT VORHANDEN IST WDDER SCHON EIN GESETZTM 
IST.” 

280 PRINT"WDAS WORT MUSS IMMER EWOLLSTAENIG AUF DEM BBILDSCHIRM ZU SEHEN = 
299 PRINT"SEIN,ERST DANN WIRD BEIN NEUES ABGEFRAGT. 

399 PRINT"MCTC) OLIVER SMITH 1984" :G605UB998 :RETURN 

888 FRINT"LÄDIE ZEIT FUER DIESEN MIST UM.DRUECKEN SIE ZNUN EINE TASTE FUER 
618 PRINT"NEUEN BEGRIFF. ":POKE198,0:WAIT198,1:G0T011 

388 POKE1933,9:FRINT" 9 TASTER" :WAITISS,1:PRINT"W":RETURN 

18988 DATAGE ISTERFAHRER ‚CHAUFFEUR FUER GESPEN-STER 

19818 DATAWINDJAMMER,KLAGELIED EINER BOEE 

19828 DATATRESORKNACKER ,WUERSTE iM SAFE 

1938 DATAKAFFELOEFFEL ‚BOHNENWASSERQUIRL 

1349 DATAKNALLERESEN,EXFLOSIVES GEMUESE 

1859 DATANEFVE HEGE ‚NERVOESES WERKZEUG 

196529 DATASCHWARZPULVER ‚SEMAHLENE KOHLE 

1E7TO TCATAMASCHENERAHT ,DURSHSICHTIGES METALL 

19888 DATAWASSERBALL ‚FLUESSIGES SPIELZEUG 

eagea DATA-I,-1 


12 CPU 
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Samnler 2 


für den VC-20 (GV) 


Hier wird’s so schnell nicht langweilig: Der Spieler kann sein schnelles Reaktionsvermögen auf zwei Spielfel- 
dern unter Beweis stellen. Das Spiel besteht nämlich aus zwei Hauptspielen (HSP) und einem Zwischenspiel 
(ZWSP). Der Witz dabei ist, daß die Punktzahl, die im Hauptspiel erkämpft wurde, im Zwischenspiel ein- 
gesetzt werden kann. Zu Punkten kommt man im Hauptspiel, indem man’ möglichst viele Perlen, die der 
”Perl-Peter” (dasfreundlichste der drei Monster) verliert, aufsammelt, bevor die ”Polster-Molster” dies er- 
ledigen. Dabei muß unter allen Umständen ein Kontakt mit den Polster-Molstern vermieden werden, da 
sonst das Spiel sofort beendet ist. Erfolgt aber ein Zusammenstoß mit dem Perl-Peter, so beginnt das Zwi- 
schenspiel. Dort besteht die Gelegenheit, Punkte darauf zu’ wetten, daß man es schafft, in gut einer Minute 
zwei mehr oder weniger wild herumhüpfende ”Hoppel-Moppel” durch Bewerfen mit Steinen einzumauern. 
Gelingt es, so werden die gesetzten Punkte zum Bestand addiert, andernfalls subtrahiert. Ist das Zwischen- 
spiel durchgestanden (mit welchem Ergebnis auch immer), so können weiter Perlen (Punkte) gesammelt 


werden. 


Das Spiel ist für ein oder zwei Spieler 
angelegt. Zu Beginn des Spieles wird 
deshalb die gewünschte Spieleranzahl 
abgefragt und angezeigt. Sämtliche Ab- 
fragen im Spiel sind mit "return” ab- 
zuschließen. Auf dem Spielfeld mit la- 
byrinthartigen Wegen sind zwei 
Polster-Molster, ein Perl-Peter und der 
Sammler (ein krebsartiges Gebilde) 
verteilt. Die Polster-Molster fressen 
Perlen und den Sammler, was Spiel- 
ende bedeutet. Der Perl-Kerlspuckt auf 
seinen Weg Perlen aus. Bei einem 
Kontakt mit dem Sammler kommt das 
Zwischenspiel zum Einsatz. Der 
Sammler, gesteuert über Tastatur oder 
Joystick, versucht, möglichst viele Per- 
len (1 Perle = | Punkt) einzusammeln 
und den Kontakt mit dem Perl-Peter 
(Zwischenspiel!) und erst recht mit den 
Polster-Molstern (Spielende) zu ver- 
meiden. Der aktuelle Punktestand wird 
ständig angezeigt. Die Bewegung des 
Perl-Kerls sind rein zufällig. Zur Er- 
höhung der Schwierigkeit (und damit 
der Spielspannung) sind die Polster- 
Molster auf Verfolgung des Sammlers 
programmiert. Mit steigender Punkte- 
zahl werden die Spielbedingungen ver- 
schärft. Die Mauern des Labyrinths 
werden kleiner und lassen damit mehr 
Durchgänge für die Flucht des Samm- 
lers, aber auch auf die Jagd der Polster- 
Molster. Nur mit äußerst wachsamen 
Augen und schnellen Fingern sind die 
vier umherwirbelnden Gestalten unter 
Kontrolle zu halten! Unser Tip: Läßt 
die Konzentration nach, können Sie 
zur Entspannung ja dem Perl-Kerl 
hautnah Guten-Tag sagen. Dann be- 
ginnt das Zwischenspiel. 

Zunächst wird die Runde und die 
bisher erreichten Punkte angezeigt und 
der gewünschte Punkteeinsatz abge- 
fragt. Es kann maximal die bisherige 
Punktzahl verdoppelt werden, was erst 
im weiteren Verlauf des Spieles so 
richtigspannend wird. (In der 5. Runde 
wieder mit Null Punkten dazustehen, 
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ist allerdings nur fürden Gegnerlustig.) 
Sollte sich der Spieler bei der mit 
return” abzuschließenden Eingabe 
vertippen, so wird mit "?redo from 
start" eine Wiederholung der Eingabe 
verlangt. Wird eine größere Punktzahl 
als die bisher erreichte eingegeben, so 
wird automatisch das tatsächliche 
Maximum gesetzt. Auf dem Spielfeld 
erscheint oben der Wacker-Macker. Er 
läuft vom linken zum rechten Bildrand. 
Während dieser Zeit besteht die Mög- 
lichkeit, durch Drücken einer Taste 
(Empfehlung: Leertaste) den Abwurf 
eines Wackers zu veranlassen. Das 
Spielziel ist, mit diesem abgeworfenen 
Wacker die auf dem Boden umherhüp- 
fenden Hoppel-Moppel durch "Ein- 
mauern” bewegungsunfähig zu machen. 
Mit wachsender Rundenzahl werden 
die Zeitintervalle zwischen den einzel- 
nen Sprüngen dieser netten Tierchen 
immer kleiner. Zum "Einmauern” steht 
gut eine Minute Zeit zur Verfügung, die 
verbleibende Testzeit wird ständig gra- 
phisch am linken und rechten Bild- 
schirmrand angezeigt. Wird die Fest- 
setzung der Hoppel-Moppel in der vor- 
geschriebenen Zeit nicht erreicht, so 
geht der Einsatz verloren, d.h. er wird 
vom Punktestand subtrahiert. Mit 
Ende des Zwischenspiels beginnt eine 
neue Runde. Wird zu zweit gespielt, so 
wechseln in diesem Moment die 
Spieler 


Variablenliste: 

Variablen mit gleicher Verwendung in 
HSP und ZWS 

A, X, Y: Flexible Belegung 

F: Flag für SPI dran 

S1/S2: Punktzahl SPI1/SP2 

PU: Aktuelle Punktzahl im Spiel 

U, V: Position Monster 1/2 


Variablen mit unterschiedlicher Ver- 
wendung in HSP und ZWSP 

W: 1. Position Monster 3 (HSP) 

2. Einsatz (ZWSP) 


P: 1. Position Sammler 

2. Position fallender Wacker 

S: 1. Zeitkonstante für Mauern abknab- 
bern’ 

2. Zeitkonstante für 'Monstersprung' 
R: 1. Richtungspuffer 

2. Flag für "Hoppel-Moppel’ einge- 
mauert 

Z:1. Zähler für "Mauern anknab- 
bern’ 

2. Zähler für Hochsprung’ 


Programmaufbau: ‘ 

0-30: Spielvorbereitung 

100-180: Rundenvorbereitung 
200-250: Bewegung Sammler 
300-380: Bewegung Monster 

400-498: Zwischenspiel 

500-560: Kontakt Sammler/Monster 1 
oder 2 

1000-1020: U-Programm Bewegung 
Monster I oder 2 

1200-1260: U-Programm Monster- 
Sprung (im Zwischenspiel) 

1300-1340: U-Programm Test 'einge- 
mauert' (im Zwischenspiel) 
9000-9010: Data-Zeilen für Perle, 
Sammler, Monster 1 bzw. 2, Monster 3, 
Begrenzung bzw. Wacker, Leerplatz 


Änderung bei Tastaturbetrieb 
Weglassen: 

in Zeile 180: ..POKE37154, 127 
in Zeile 400: POKE37154, 255... 
Ändern: 

in Zeile 220: 
33THENA=-1:GOTO230 


X=peek(203):IF x= 


in Zeile 222: 
GOTO230 
in Zeile 224: 
GOTO230 
in Zeile 226: 
GOTO230 


IFx=39THENA=-22: 

IFx=5S5STHENA= 22: 
IFx=34THENA=1: 

Z: links 

C: rechts 


Fl: hoch 
F5 : runter 


EPU 13 


vc-20 


5 REM SAMMLERZ 

6 REM P.ROBIN, 4/84 

18 POKE36379,27:A=RND<-TI) :F=1:POKE36878, 18: PRINT" TINSSPIELERANZAHL(1/2IE" ; 

2a FORA=7296T07633: POKER, FEEK(ZSSAG+A) : FOKEA/28+38858, 6: NEXT : INPUTA: IFA-2THENSZ= 


il 
36 FORA=7448107495:READ#: FÜKER,#: NEXT 
188 PRINT"N"; :FORA=334671038734 : POKER, 2: NEXT :POKE36889, 255 
POKE36367 , 38: RU=RU+1 :PRINT"RCSSP" ; : IFFTHENPU=S1 :PRINT"1:"; :GOTO128 
PU=S2:PRINT"Z:"; » 
PRINT"m CCCLCCecERU: RE" TABCSIPUTABC1S>RU: FORA=7792T07746: POKER, 48 
POKE38728+A,3: NEXT :PRINT"R"SPCLSTI" EC 77777 ec" SPCC20; 
PRINT" CCHM TR 7777 ll 7777 CC "SPCK 1653" CO 7; 
PRINT" CHI "SPCCL23" U MCC"SPELE) "RER 707 a 
FORA=7921 103497 :%=15821-A: POKE39726+A, PEEK(39728+#) :POKER, PEEKCK) :NEXT 
U=7815: V=8886 :W=7914:P=7997 :5=35-RU%5: IFSCSTHENS=3 
FORA=8TO2 : FORK=209T0254 : POKE36876,%:NEXTX, A: POKE368768, 8: POKE37154, 127 
IFP=UORP=VÖRF=WTHEN48B 
#=PEEK (371519 : IFNOTXAND4THENA=-22: GOTO234 
IFNOT#AND1STHENA=-1 :GOTO238 
IFNOTXANDSTHENA=22 : GOTO230 
IFNOTPEEK (37152>AND128THENA=1 :G0OT0238 
FORA=8TO38 : NEXT : GOTO388 
IFPEEK«P+A)<33THENR=A 
POKEF , 32: POKE38729+P ‚2: X=PEEK(P+R) : IFXC33THENP=F+R:POKE36875-(%=35) , 238 
POKEP , 36 : POKE39720+P ,5: POKE36875, 8: IFX=35THENPOKE36876, 8: PU=FU+1 : PRINT" bb 
M h 


Y=INTCRNDC19#29%21 +1: IFP=UORP=VORP=WUTHEN4O8 

%=U: GOSUB1998 : U=X :%=V:GOSUB1988 : V=X A=CINTCRNDEIIKZIHZIHLIKSGNERHDE1I-. 52 
IFPEEK<W+A<37THENPOKENW, 35: FOKEW+38728, 2: W=bl+A : FÜOKEW+38728, 4 

POKEW, 38:2=2+1 : IFZ<CSTHEN206 
Z=8:%=1NTCRNDC19#328+7725) : IFPEEK CH) -33THENZ208 

POKE36877 ‚252: FOKEX, 32: POKE38728+X, 2: POKE36877 ,8:G0T0298 
POKE3?134, 255: IFP=UORF=YTHENSG8 

FORA=128T0253: POKE36976, A: POKE36876, 381-A: NEXT : FOKES6376,8:P=8 

POKE36867 , 46: PRINT" TPU: "PU: FOKE36863, 248: PRINT" ERU: "RU 

POKE658, 64: POKE198, 9:W=B: INPUT" MWEINSATZ ";W: IFWSPUTHENW=PU 

PRINT"" :POKE36869, 255: FORA=384991038995 : POKER, 6: NEXT :S=11-RU: IFSZITHENS=1 
U=8149: V=8156 : POKEU, 37: POKEY, 37 :POKE33363, 2: POKES8876 ,2:2=INTCRNDC1I#S) 
FORA=8164T08185::POKE38729+A, 3: POKER, 48: NEXT : FORA=7792T08142STEP22 
POKE38728+A, 3: POKER; 48: POKE38741+A,3:FOKEA+21 , 48: NEXT : FORY=8T035: FORA=7681 TO 


POKER, 39: IFPEEK(P+223-32THENFORX=8T015: NEXT: P=8:G0T0478 
POKEP , 32:P=P+22:POKEP, 33 

FORX=8T028 : NEXT : IFPEEK.< 198) THENP=A : POKE193,8 

FOKER; 32: NEXT : X=U : GOSUB1388 : IFRTHEN47?7 
%=V:GOSUB 1388 : IFRTHEN4?? 

FORA=12310253: POKE36375, A: NEXT : POKE36875, 8: PU=PU+W:GOTO438 
2=2+1: IFZ>STHENZ=9: X=U : GOSUB1 298 :U=%:%=V : GOSUB1208: V=% 
%=38400+22%#1NT C'rk. 4) :POKERX, 1: POKEX+21, 1:NEXT :PU=PU-W 
POKE658, 8: IFF=8THENS2=PU : GOTO496 

Si1=PU: IFS2-INT(S2)=8THENF=8: RU=RU-1:GOTO198 

F=1: IFS1-INT(S1>THENF=8 

GOTO188 

PRINT"TIMASPIELENDE SPIELER ";.:POKE36363, 248: IFFTHENF=8:51=PU+.1:PRINT"1"3 :G0 


26 

F=1:52=Pl+.1:PRINT"2"; 

PRINT" ! BSWRUNDE: "RU:PRINT"MSPi:"INTCS1Y:PRINT"MSFZ:"INTCS2) 

POKE36878, 15: FÜRA=253T0127STEP-. 4: POKE36874 , A: POKE36877 , A: NEXT: POKE36878, 19 

IFS1-INTCS1)=9@THENPOKE36369, 255:60T0106 

RU=RU-1: IFS2- INT (S2)=@THENFOKE36869, 255:G0T0158 

FOKE138, 8: INPUT" MENOCHMALCJ/NI" 5X$: IFA$=" I" THENRUN 
568 POKEESB,B:57565234 ? 
1898 A='#SGNCCR>P)+. 1): IFPEEKCK+ADC3TTHENPOKER, 32: A=#+A : POKER , 37 : RETURN 
1818 A=SGHLAY#C23-ABSCA)) : IFPEEKCA+AN<C3FTHENFOKER, 32: #=4+A: FOKER, 37 
1828 RETURN 
1208 R=5GNCRNDC1)3-.55 : IFPEEKCK-227-32THENPOKE36377 , 127: GOTO1235 
1228 POKE26377 ‚238: POKEX , 32: POKE39728+X., 6:%=X-22: POKEX, 37 : POKE38720+%, 2: IFPEEK(CK 
-22)-32THEN1235 
1236 POKE36377 ‚248: POKEX, 32:POKE38720+%,,6:%=#-22: FOKEX 37 :FÜOKESBTZBHR,Z 
1235 IFPEEKCA+R)-32THEN1258 
1248 POKE36377 , 254 :POKEX. 32: POKE39720+%,6:%=#+R: POKEX, 37: POKE39728+%,2 
1258 IFPEEK(X+22)-32THEN1268 
a ie 

:6 58 

1268 POKE36877,8:RETURN 
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R=1: IFPEEK(X+13=32THENRETURN 
IFPEEKi#-19=32THENRETURN 
IFPEEKC#+22)=32THENRETURN 
IFPEEK (%-223=32THENRETURN 


R=8: RETURN 


VcC-20 


DATA,» ,24, 24, 44,,36, 66, 66, 68, 255, 68, 231, ‚68, 126,98, 126,66, 126,36. ‚66, 60,98 
DATA126, 36, 36, 182, 189,36, 189, 255, 255, 189, 98, 189, 255, 255, 255, 255, 255, 235.255 


Hat u:"p-t"sspiser T 


Commodore 64 — Software 


Wir haben sie 


Sofort Info anfordern 
gegen Schutzgebühr von DM 1,- 
(in Briefmarken) 

bei 


Oktober 1984 


Rothfuss RG 


@015 U6HI 
Geschicklichkeitsspiel DM 39.50 


Der Steinzeitmensch UGH! muß für die 
bevorstehende Eiszeit Vorräte sammeln. 
Die Eier der Flugechse sind als Vorrat ideel, 
doch die Echse und einige Saurier scheinen 
etwas dagegen zu haben, daß man ihre 
Eier klaut... 


@022 Missile Command 
Aetionspiel DM 32.00 


Sie sind Kommandant einer Raketenbasis 
und müssen alle angreifenden Raketen, 
Flugzeuge und Satelliten zerstören, um Ihre 
Städte zu retten. Sie haben nur eine be- 
grenzte Anzahl von Raketen zur Verfü- 
gung. 


Güntterstr. 45 
7142 Marbach/N 


Zwischenspiel 


Korrektur aus GPU 9/84 zum Pro- 
gramm Grafik für den G-64 


Daß bei einem Gomputer-Listing selbst das kleinste 
Datum wichtig ist, haben viele unserer Leser erfahren 
müssen, als sie versuchten, das Programm "Grafik” 
(für den G-64) zu laden. In Zeile 1090 war plötzlich 
nach dem Komma Schluß — und schon lief das Ganze 
nicht richtig. Die "alten Hasen’ vermuteten zwar 
gleich richtig, daß da irgendeine Zahl fehlen müsse — 
aber welche, das war schwer zu bestimmen. Nun wol- 
len wir helfen und verraten, wer die große Un- 
bekannte ist, die so gerissen war, sich einfach aus 
dem Staube zu machen. Geben Sie nach dem Komma 
einfach eine 96 ein: schon müßte das schöne Grafik- 
Programm laufen lernen. Nichts für ungut! 

Ihre GPU-EDV. 


CPU 15 


TI-99/4A 


Super 


Die Spielidee für Super Kong wurde von dem wohl 
allseits bekannten Donkey Kong abgeleitet. Nach 
dem Laden des Programmes erscheint ein gra- 
fisch, wirklich toller, Bildschirmaufbau. Um spie- 


len zu können, wird außer dem TI-99/4A natür- 
lich, ein Joystick benötigt. 


Hierauf wird auch gleich eine Programmbeschrei- 
bung gegeben, in der es heißt: Versuche einen klei- 
nen Mann durch ein Gerüst zu steuern, und paß 
auf, daß er nicht von den Geistern gefressen wird, 
die von dem Kong gesteuert werden. Hüte dich vor 
den blauen Fallgruben, es wäre Dein Verderben. 
Nach Drücken einer Taste kann es jetzt | 
losgehen. 

Also dann viel Spaß! 


100 REM Ha 
110 REM * * * 
* 
126 REM * FETER JASSEN * *DU.DEN 11.353.198 
af%* * 
136 REM HHRHRRR 
140 ! 
156 ! ZEICHENDEFINIETIONEN 
166 ! 
176 CALL CLEAR :: CALL MABNIFYSIEE CALL SCREEN (2) 
186 ! SUPER KONG 3 
190 CALL CHAR (96. "60066056070E1F373BIDSFSF IF 1FOF630000000003860C961238F9FBFFFLFF 
FERN) 
266 CALL CHAR (190. "06000006000600000060000000060066007F 1FOFOFLFSFTIFTIFIFIFTIFSFSFIFT 
EREN 
21 CALL CHAR (104. "00060060FBECG4ADOF43FSFBFFOTFFFF600000600000000060600080C0EOF 
ra") 
226 CALL CHAR (108, "FFFFFBFSEFEDFSFFFFFFFF8707070363F8B878F0EGCOCOEOFOFOFOFOFGEOF 
Bft") 
230 ! 
249 ! MANN RECHTS 
250 ! 
266 CALL CHAR (112. "0307670E0703018367BEOCHE9703040780F8C079E9COBOCOCHEO72OCF2EO4 
070") 
276 CALL CHAR(116. "0307676E07930103070F 0C2A1723020380F8C070E9CYBOLOCHEAFBF4FOEOZ 
6B8") 
280 ! 
296 ! MANN LINKS 
300 ! 
31® CALL CHAR (126. "01 1F630E6703010363074E364F67020ECYEVE679EOCOBOC1EAT7DSGFGEOCH2 
VER") 
326 CALL CHAR (124."011F036E676301630327 1F2FOF0704 1DLOEGE679EOCHBOCLGEOFO36054EBCHA 
Sch") 
330 ! 
346 ! MANN TOT 
350! 
366 CALL CHAR (92. "6000036660608A8484DCSEBFBBBSFF 178080E689868080820A0A1ABEFTF7BF 
1er) 
3760 ! 
380 ! GEISTER (1)&i2) 
390! 
306 CALL, CHAR (36. "666668070F 1F17131F12181F1FIF1F1460000686C0E06820E6A020EGE6EGE® 
Ro") 
318 CALL CHAR (46, "063A45934539030F6F 1617170F7461EBG6SSA2CIAZ2ICCOFOFGSBEBEBFYERSH 
78") 
420 ! 
430! FRAU 
240! 
456 CALL CHAR (60. "000000600583070F 1E373F33S63576E2DOA1FOEO4008CCGE673E9C28C1ABOTA 
8C" 
466 ! 
478 ! FLAME (1)&i2) 
480 ! 
396 CALL CHAR (128. ”06006690@8610307 LLIESFSFSO1FOF0700703CSEFEFFFFFFCEECFSFG7SFCF 
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CFo") 
508 CALL CHAR (136. "O06ESC7CIFFFFFFF73371FOF LESFSFOF000006000086C0E03878FCFLOCFAF 
EO”) \ 
Sa! 
526 !: LEITER 
\ 


CALL CHAR (133. "CICICIFFFFCSCICS") 
\ 


u GERUEST 


\ 
ö CALL CHAR (146. "FFFFFO78SCHEIFFFF")2: CALL CHAR (SB, "O6OFFFFFFFFFFFFFF") 


! ZEISCHEN DATAS 

f 
626 DATA 7CFECEDEF6E6FETC. 1838787818181818. 7CFEGESC7BEOFEFE. 7CFEGESCSCHEFETC, 1C3 
CICECFEFEOCEL. FEFECOFÜFEOSFETC 
636 DATA 7CFECOFCFEC6FETC, FEFEG6GE 10383030, 7CFEC67CICCKFETC, 7CFECGFETEGLFEIC 
640 FOR I=1 TO 16 
650 READ A$ :: CALL CHAR (47+1.A$) 
660 NEXT I 
670 DATA 387CEEC6FEFECKC6, FCFECAFEFCC6FEFC, 7CFECOCOCOCVFETC, FCFEC6CHCBCKFEFC, FEF 
ECAFBFBCOFEFE , FEFECOFBFBCOCOCO, 7CFECÖLECECHFETC, C6CHCBFEFECHCSCH 
686 DATA 1818181818181818, FEFE06060606FE7C, C6CEDCFSFEDCCEC6, COCOCOCOHLOCHFEFE, CE 
EFEFED6C6C6CH, ÜGEGEGF6DECECECS, 7CFECBCSCELHFET , FCFECHFEFCCOCHLO 
896 DATA 7CFEC6CEDACCFE76, FCFEC6FEFCDCCEC6, 7CFECOFCIEO6FETC,FEFE181818181818, C6C 
6C6C6CHCAFETT, C6C6EESCICIBIBI „CBCHCHCEDGFEFESC, C6EE7CSBSBTCEECK 
760 DATA C6CEFC783630303, FEFEOEICISTOFEFE 
718 FOR I=1 TO 26 
720 READ A$ 
7360 CALL CHAR (64+1,A$) 
730 NEXT I 
750 ! 
760 !  ANFANGSBILD 
776. 
7 ‚1,32,11,1,7,11,12,18,11,26,7,15,7,26 

,4,4,7,12,4,7,21,4,7,29,4,12,7,3,12,26,3 


CALL HCHAR(ZI,SP,140,L) 
NEXT I 
FOR I=1 TO 8 
READ ZI,SP,L 
60 CALL VCHAR(ZI,SP.133,L) 
NEXT I 
N 
\ TEXT 
f 
DISPLAY AT(19,1)SIZE(S):"SUPER" +: DISPLAY AT(1,7)2"SUPER" 
DISPLAY AT(20,25)SIZE(4): "KONG" z: DISPLAY AT(1,19)2 "KONG" 
DISPLAY AT(17, 16): "PETER JANSSEN" 
© DISPLAY AT(19, 10)SIZE (8) + "SOFTWARE" 
ö DISPLAY AT(21,10):"PRESENTIRT" 
DISPLAY AT(23,5): "SPIELREGELN ERWUENSCHT J N“ 
970! 
986 !  SPRITE 
996} 
1900 CALL SPRITE(#1,36,2,1,24,#2,40,2,25,72,#3,96,2,25,168,#4,36,2,1,216) 
161® CALL SPRITE(#5,96,2,8,112,#6, 108, 2,24, 112,#7,104,2,8,128,#8, 108, 2,24, 128) 
1020 CALL SPRITE(#9,36,2,64,40,#10,92,2,64,120,#11,36,2,64,200) 
1039 CALL SPRITE (#12,112,2,97,72,#13,40,2,97,120,#14,124,2,97,168 
1046 ! 
1056 !, COLOR 
1960 ! 
1676 CALL COLOR(13,16,2,14,14,2) 
1686 CALL COLOR(#1,13,#2,11,#3,11,#4,13) 
1696 CALL COLOR (#5,9,#6,9,#7,9,88,9) 
1160 CALL COLOR(#9,13,#10,6,#11,13) 
1110 CALL COLOR(#12,8,#13,12,#14,8) 
1126 ! 
1130 ! ABFRAGE OB J N 
1140 ! 
1159 FOR I=2 TO 16 :: RANDOMIZE :: CALL COLOR(I.INT(RND#13)43,2):: NEXT I 
1166 NEXT I 
1176 .7,83,8,-7) 
1186 CALL KEY(8,K,5) 
1190 -IF K=74 OR K=106 THEN 1380 
1206 IF K=78 OR K=116 THEN 1560 
1218 CALL MOTION(#10,-3.0) 
1226 FOR L=1 TO 100 z: NEXT L 
1230 CALL MOTION(#16.3,0) 
1240 FOR L=1 TO 166 :: NEXT L 
1256 CALL MOTION(#19.0.6) 
1250 GOTO 1186 
1270 ! 
1286 ! SPIELERKLERUNG 
1296 ! 
1396 CALL CLEAR := CALL DELSPRITE(ALL) 
1316 DISPLAY AT(1.16):"SUPER KONG” 
1320 DISPLAY ATi4.1):"MAN MUSS VERSUCHEN EINEN KL" 
1336 DISPLAY AT(6,1)2"EINEN MAN DURCH EIN GERUEST" 
1340 DISPLAY AT(8,1):"ZU STEUERN DABEI MUST DU AUF ” 
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1350 DISPLAY AT(10,1):"PASSEN DAS DU NICHT VON DEN" 

1380 DISPLAY AT(12,1):"GEISTERN GEFRESSEN WIRST DIE" 

1370 DISPLAY AT(14.1)2"DER KONG STEUERT HUETE DICH" 

1386 DISPLAY AT(16,1):"VOR DEN BLAUEN FALLGRUBEN” 

1396 DISPLAY ATi18,1):"ES WAERE DEIN VERDERBEN " 

1400 DISPLAY ATi22,4):"DRUECKE EINE TASTE" 

131© CALL KEY(®,K,S):: IF S=0 THEN 1416 

1426 CALL CLEAR 

1436 DISPLAY AT(1,16):"SUPER KONG" 

1440 DISPLAY SOLTEST DU ES SCHAFFEN ZUR " 

1450 DISPLAY FRAU ZU GELANGEN IST DIE " 

1460 DISPLAY ERSTE LAGE BESCHAFFT SOMIT * 

1470 DISPLAY ERHOET SICH DIE SCHWIRICKEIT" 

1486 DISPLAY LENCKEN MIT JOYSTIGS" 

1498 DISPLAY “VIEL SPASS" 

1506 DISPLAY AT(20,4):"SPIELBEGIN MIT ENTER " 

1516 CALL KEY(6,K,5) 

1520 IF $=1 THEN 1566 ELSE 1516 

1536 ! 

1546 ! SPIEL SUPER KONG 

1556 ! 

1560 CALL CLEAR :: CALL DELSPRITE(ALL):: RESTORE 1636 

1576 CALL COLOR(13,2,2,14,2,2,4,2,2) 

1586 ! 

1596 ! FELTAUFBAU 

1806 ! 

1618 CALL HCHAR(4,3,140,8) 

1620 FOR 1=3 TO 26 STEP 5 :: CALL HCHAR(25-1,1,140,32):2 NEXT I 

1636 DATA 7,12,12,8,12,22,17,15 

1630 DATA 8,17,13,5,13,28,18,12,18,20 

1656 FOR I=1 TD 4 

1666 READ ZI,SP 

1670 CALL HCHAR(ZI,SP,58,3) 

1686 NEXT I 

1690 CALL VCHAR(5,8,133,2) 

1786 FOR I=1 TO 5 

1710 READ ZI.SP 

1726 CALL VCHAR(ZI,SP,133,4) 

1730 NEXT I 

1740 CALL HCHAR(3,1,58,2):: CALL HCHAR(4,1,58,2) 

1750 CALL COLOR(13,16,2,14,14,2,4,6,2) 

1760 CALL COLOR(9,10,2,10,10,2) 

1770 DISPLAY AT(5,23):"dfIn" z: DISPLAY AT(6,23):"egmo" :: CALL SPRITE(#1,96,10, 
17,192,#3, 104,10, 17,268) 

1786 CALL SPRITEi#5,46,10,33,144,#6,40,4,72,40,#7,40,4,72,180,#8,36,12,112,40) 
1798 CALL SPRITE(#9,40,5,112,120,#10,36,12,112,200,#11,36, 15,152, 104,#12,36,15,1 
52,200) 

1806 CALL SPRITE(#13,60,7,1,5) 

1810 DISPLAY AT(2,10):"SUPER KONG" 

1826 DISPLAY AT(24,1)SIZE(6):"PUNKTE” :: DISPLAY AT(23,8)SIZE (6) : "BONUS" 
1830 DISPLAY AT{23,22SIZE(6):"prprpr" ı: DISPLAY AT(24,22)SIZE(6) :"asasqs" 
1846 CALL COLOR(11,8,2) 

185® FOR I=1 TO 466 :: NEXT I 

1866 CALL MOTION{#5,0,14,#6,0,-10,#7,0,-10,#8,0,7,#10,0,7,89,0,7,#11,0,-6,#12,0, 
-b) 

1876 DISPLAY ATi24,7)SIZE(7) o ic 

1886 ! 

1896 ! _ HAUPTPROGRAMME* 

1908 ! 

1910 DISPLAY AT(23.IMSIZE(NI: 

1926 WA=1 :: SPALTE=6 :: APD=® 3: F&=112 2: GF=ell6 2: KL=® 2: BOND 
S=6 :: 65C= 

1936 CALL SPRITE(#14,112,8,152,8,0,0) ® 
1946 CALL JOYST(1.X,Ydzz CALL MOTION(#14,0,%#1.5):: IF X=-4 THEN FG=126 :: GF=12 
4 2: KL=-18 ELSE IF THEN FG=112 :: GF=l16 :: KL=18 

1956 CALL PATTERN (#14,FG) 

1966 DN WA 60TO 2256,2290, 2340,2396 

1978 \ 

1986 ! SPRUNG 

1996 ! 

2006 CALL FATTERN(#14,GF):: CALL SOUND(-1,120,0) 

2916 CALL KEY(1,K.S):: IF K=18 THEN 2626 ELSE 1946 

2926 CALL MOTION (#14.-24,KL) 

2636 FOR I=i TO 3 :: CALL COINC(ALL,O):: IF Q=-1 THEN 2446 ELSE CALL SOUND(50,40 
0*1,0) 

2046 NEXT I 

2056 CALL MOTION(#14.24,KL) 

2666 FOR I=1 TO 3 :: CALL COINC(ALL,O):: IF Q=-1 THEN 2440 ELSE CALL SOUND(50,16 
rl.) 

2076 NEXT I 

686 CALL FOSITION{#14.A,E)z: CALL MOTION(#14,0,0) 

2596 CALL LOCATE (#14, SPALTE,B) 

2166 BONUS=BONUS+S® :: DISPLAY AT(23,1SISIZEIT):BONUS :3 PU=PU+S :: DISPLAY AT(Z 
4.7ISIZE(7):PU 

2119 CALL COINC{ALL.@)z: IF Q=-1 THEN 2440 ELSE 1940 

2120 ! 

2136 ! LEITER 

2148 ! 

2150 CALL JOYSTiL.X.Y)zz IF Y=-4 THEN 2166 ELSE CALL MOTION(#14,-Yx4,0) 
2166 CALL COINC(ALL.@):: IF Q=-i THEN 2446 

217% CALL FOSITIONi#14,A,B)zz IF ACAPD+B THEN 2186 ELSE 2156 


18 CPU Oktober 1984 


TI-99/4A 


2186 CALL MOTION(#14,0,0) 
2196 CALL LOCATE (#14, APD,B) 
2266 BONUS=BONUS+168 :: DISPLAY AT(23,1DSIZE(7):BONUS :: PU=PU+INT (RND#S@)+10 z 
: DISPLAY AT(24, ISIZE(T):PU 
2210 IF WA>S THEN 1946 ELSE WA=WA+H :: GOTO 1948 
2228 ! 
2230 ! ABFRAGEN 
2246 ! 
2250 SPALTE=152 :: APD=112 
2266 CALL DISTANCE (#14, 152,85,0):: IF 0<1® AND Y=4 THEN 2156 
2276 CALL DISTANCE (#14,152,149,0):: IF 010 AND Y=4 THEN 2156 
2286 CALL COINC(ALL,@)s: IF Q=-1 THEN 2440 ELSE 2060 
2296 SPALTE=112 :: APD=72 
2360 CALL DISTANCE(#14,112,113,02):: IF 02<120 THEN 2596 
2310 2,29,@):: IF O<16 AND Y=4 THEN 2156 
2326 CALL DISTANCE (#14,112,213,0):: IF Q«1@ AND Y=4 THEN 2156 
2336 CALL COINC(ALL,O):: IF Q=-1 THEN 2440 ELSE 2806 
2396 SPALTE=72 :: APD=32 
2359 CALL DISTANCE (#14,72,57,03):: IF 03<120 THEN 2590 
2360 CALL DISTANCE (#14,72,168,03):: IF 03<120 THEN 2596 
2376 CALL DISTANCE (#14,72,126,0)::" IF 0X1® AND Y=4 THEN 2150 
238% CALL COINC(ALL,@):: IF Q=-I THEN 2440 ELSE 2006 
2396 SPALTE=32 
2406 CALL DISTANCE(#14,32,89,09):: IF 04<120 THEN 2590 
2416 CALL DISTANCE (#14,32,54,0):: IF O<1G AND Y=4 THEN 2686 
2420 CALL COINC(ALL,O):: IF Q=-I THEN 2446 ELSE 2000 
2430 ! 
2496 ! TOT 
2450 ! 
2466 CALL FATTERN(#14,92):: CALL MOTION(#14,0,0) 
2476 CALL MOTION (#14,-3,4) 
2486 FOR I=1 TO 2 
2490 CALL SOUND (508, 660, 0,670, 0,680, 6) 
2506 CALL SOUND (566,560, 0,570, 0,560, 0) 
2510 CALL SOUND (500,686, 0,670,0,656,0) 
2526 CALL SOUND (566,580, 0,570,0,560,0) 
2536 NEXT I 
2596 MAN=MAN+2 
2556 DISPLAY AT(23,20+MANDSIZE(Z):" " :: DISPLAY AT(24,20+MANISIZEIDIE" " 
2566 CALL DELSPRITE(#14):: IF MAN=8 THEN 2910 ELSE CALL LÖCATE(#11,152,104,#12,1 
52,266) 
2576 GOTO 1896 
2580 ! 
2596 !  FALLGRUBE 
2606 ! 
® CALL MOTION(#14,3,0) 
© FOR I=1 TO 15 
‚30 CALL SOUND (208, 1666-1,1,990-1,D) 
@ NEXT I 
50 CALL SOUNDA800,126,0,226,6):: CALL PATTERN(#14,92) 
G0TO 2470 


FRAU GERETTET 2 
CALL MOTION(#14,-9,6):: LAGESLAGEH 
FOR I=1 TO 16 Ä 
CALL SOUND (50, 200*1,0) 
NEXT I 
CALL NOTION(#14,0,6) 
FOR Isi TO 5 
© CALL SOUND (200, 2000, 0,3000, 0) 
CALL SOUND (200, 3060, 1,2000, 1) 
6 NEXT I 
© FU=PU+BONUS :: DISPLAY AT(24,7)SIZEIT) PU 
6 ON LAGE G0TO 2830, 2870,2816 
LAGE=® :: GOTO 2566 
f 
! LAGEN 
f 
CALL PATTERN(#5,40,#6,128,#7,36,#8,40,#9,139,#10,36,#11,128,#12,40) 
® CALL COLOR (#5, 16,#6,8,#7,10,#8,15,#10,15,#9,3,#11,12,#12,12):: CALL MOTIONG 
.-10,#12,0,-10):: GOTO 2566 
CALL MOTION(#11,0,-8,#12,0,-8) 
© CALL PATTERNi#5.136,#6, 128,#7,128,#8, 136,#9, 136,#10, 136,#11,128,#12,128) 
CALL COLOR (#5,7,#6,4,#7,12,98,5,#9,10,#10,5,#11,16,#12,16):: GDTO 2568 


IF PU>HOE THEN HOE=PU 
DISPLAY ATi9,DSIZE(7)2"HOECHST" :: DISPLAY AT(9,19):"PU ":HOE 
MAN=O :: FU=@ :: LAGE=® DISPLAY AT(19,2)SIZE (24) : "NEUES SPIEL 


FOR I=1 TO 26 

6 CALL KEY(6,K,S) ! 

ö IF K=74 OR K=106 THEN 1566 ELSE IF K=78 OR K=116 THEN CALL CLEAR :: CALL DE 
LSPRITE(ALL):: END 
2996 NEXT I 
5686 DISPLAY ATi14.WSIZE(1@):" 
3616 FOR I=1 TO 186 :: NEXT I 
3026 DISPLAY AT(14,WSIZE(10):"SPIEL ENDE" 
3030 GDTO 2966 
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T1-99/4A 
Donald der 


Dschungelheld 


für den TI-99/4A und Extended Basic 


Daisy Duck, von Donald heiß begehrt, 
wurde von schwarzen Affen gefangen- 
genommen und in einen Käfig gesteckt. 
Unser Held, Donald, versucht nun, 
Daisy zu befreien. Hierzu muß er den 
Käfig seiner Freundin erreichen. Die 
Affen machen ihm die Sache schwer, 
indem sie mit übergroßen Kokusnüs- 
sen nach Donald werfen. Trifft eine 
Nuß unseren Helden, hat er sein 
Leben verwirkt. 

Hat Donald es geschafft, die Nüsse heil 
zu überstehen, erwartet ihn unmittel- 
bar vor dem Käfig eine recht gemeine 
Schlange, die unerwartet versucht, Do- 
nald zu beißen. 

Ist endlich der Käfig erreicht, zeigt sich 
auf dem Bildschirm die befreite Daisy 
mit ihrem Helden. Donald. 

Mit fünf Spielfiguren wird gestartet. Bei 
jedem Verlust wird ein Donald abgezo- 
gen. Die Punktwertung erfolgt nach 
überstandener Gefahr und erfolg- 
reicher Rettung. Für jeden Rettungs- 
versuch, der erfolgreich abgeschlossen 
wurde, erhält der Spieler 100 Pkt. Zu- 
sätzlich erfolgt die Restzeit als positiv 
auf dem Konto. Bei Nichteit-hattung 
des Zeitlimits (Time = 50) hat Donald 
sein Leben ebenfalls verwirkt. Mit jeder 
Rettung erhöht sich die Geschwindig- 
keit der fallenden Nüsse. 
Viel Spaß! 


% 
x 


“ 570 CALL COLOR(8.1.1):2 CALL COLOR(1.1.1)33 CALL COLOR(2,1,1) 


\ (10,9,42):22 CALL HCHAR(9,7,490) 


.650 CALL HCHAR(8.12,41):: CALL HCHARi3,13,40):: CALL HCHAR(8,14,42):: CALL HCHAR 
> (7.13.40) 


* DDNALD DER * 
3® REM * DSCHUNGELHELD * 2 
40 REM * * 
50 REM * WOLFGANG KLEIN* ki 
REM * HAFENSTR. 12 * 
70 REM #* 2000 WEDEL(H) * 
80 REM # JUNI 84 * 
980 REM HH 
190 T=6 
110 RANDOMIZE 


120 A=0 :: D=5 :: TI=50 :: 67=0 

138 CALL CLEAR :: CALL SCREEN(12) 

130 CALL MAGNIFY(3) 

150 CALL CHAR(91."7E8199919199817E") 

160 CALL CHAR (96. "062321232B272123372B2120202120230000680C089000086C0E8FBF6A02999 
BS")! DONALD NACH LINKS (A) 

170 CALL CHAR (100. "006301834827 110B0703010000010A04000080C080000080C9EBFBFOAGLCO 
404")! DONALD NACH LINKS (B) 

186 CALL CHAR (104. "060001030100000103171F0F0504091DO0CAB4CAD4EABACHECDAB49404849 
4C4")! DONALD NACH RECHTS (A) 

190 CALL CHAR(108. "000901030100000103171F0F0538202000C080C 1 D2E488D6E0C0B09000805 
020")! DONALD NACH RECHTS (B) 

260 DISPLAY AT(6.4):"DONALD DER DSCHUNGELHELD”" 

218 DISPLAY AT(17.59)2"PRESS ANY KEY TO START" 

220 DISPLAY AT(22.8)2"[ WOLFGANG KLEIN" 

2350 CALL SPRITE(#2,104,2,12*8. 256) 

240 CALL SPRITE(#1,96,2,9*8,256) 

250 CALL SDUND(250.880,0):: CALL SOUND (250.7853,0):: CALL SOUND(125,659,6):: CALL 
SOUND (175,523,@):: CALL SOUND (125.659.0) 

266 CALL SOUND(256,587,0):: CALL SOUND(125.659,0):: CALL SOUND(125.587,0):: CALL 
SOUND (125,587,0):: CALL SOUND 125,785.) 

270 CALL SOUND(125,659,0):: CALL SOUND(125.587,0):: CALL SOUND(125,587,0):: CALL 
SOUND (125,523.0):: CALL SOUND (125,659.0) 

289 CALL SOUND(125.587,0):: CALL SODUND(125,587,.0):: CALL SOUND(125.783,0):: CALL 
SOUND (125,659,0):: CALL SOUND (125,.587.0) 

290 CALL SOUND(125.587,0):: CALL SOUND(259,880,0):: CALL SOUND (250,783,0):: CALL 
SOUND (125,659,0):: CALL SOUND (175.523,0) 

360 CALL SOUND(125,659.0):: CALL SOUND (500,587,0) 

310 CALL MOTION(#1,0.-10,#2,0,10) 

320 FOR L=1 T0 5 

336 CALL PATTERN(#1,190 CALL PATTERN(#2.108):: FOR I=1 TO 46 NEXT I. 

348 CALL PATTERN(#1,96):: CALL PATTERN(#2.104)2: FOR I=1 TO 40 :: NEXT I 

350 NEXT L 

360 CALL MOTION(#1.0,0,#2,0,0) 

379 CALL KEY(0,K,S):: IF 5=® THEN 370 

380 CALL DELSPRITE{ALL)rS CALL CLEAR :: CALL SCREEN(15) 

390 CALL CHAR (88, "FFFFFFFFFFFFFFFF") 

400 CALL CHAR (33, "FFFFFFFFFFFFFFFF") 

410 CALL CHAR (34, "0107070F3F3F7FFF") 

420 CALL CHAR (35, "EOEOEOEOFCFCFEFF") 

430 CALL CHAR (36, "FFFFIFSFOFOFOFOS") 

440 CALL CHAR (37, "FFFFFEFCFBFBEOCHE") 

450 CALL CHAR (40, "FSSDFS7DFFBIFFDS") 

469 CALL CHAR (41,"0107070A35376BB7") 

470 CALL CHAR (42, "EO60E070B4EC7ED7") 

480 CALL CHAR (43, "BDEESD379EOBOFO3") 

CALL CHAR (44, "EFFB9I6ACTBFBAOCO") 

CALL CHAR (116, "181C7CESE7FSSBICIFIFSF7CIB1CSC7C70670789CDCSCBB79EGEOFOFB7OEOF 
oF8")! AFFE 

518 CALL CHAR (120. "09000060000080787863576F 7F 7EOC050000000000000090ABBAFEITGBOA® 
000")! DONALD ERLEDIST 

528 CALL CHAR (124. "000001030B070195170B0100000100030000B80C0C0592089CHEBFBFOA0209 
@B8")! DAISY GERETTET 

530 CALL CHAR (128. "FF5051535B575153575B5150505150FFFFOABACACASAZABACAEAFAFAAAZAI 
AFF")! DAISY GEFANGEN 

540 CALL CHAR (132, "006000009103670F0F0F0707030301900000000889C0EOFOFOF9EYEOCACHB 


550 CALL CHAR (136. "010301010102040502000000000009000080000000000850A000000000000 
080")! SCHLANGE FRIEDLICH 
560 CALL CHAR (140, "900000000009090 192040494930000060000990000000850A00000980AC0C 
000")! SCHLANGE GREIFT AN 


586 CALL HCHAR(12,1,88,32#11):s CALL HCHAR(23,1,33,32#2) 

590 CALL HCHAR(19,4,41):: CALL HCHAR(19,5,40,4)2: CALL HCHAR(18,5,40,5):2: CALL H 
CHAR (18,8,42):: CALL HCHAR(17,5,40,.5) 

669 CALL HCHAR(16,5,41)3: CALL HCHAR(16,.6,40,2):: CALL HCHAR(16.8,44):: CALL HCH 
AR(15,6,48,3)22 CALL HCHAR(14,6,40,3) 

619 CALL HEHAR(13,6,41):: CALL HCHAR(13,7,40,2):3 CALL HCHAR(12,7,40,2):: CALL H 
CHAR(11,7,41)2: CALL HCHAR(11,8.46) 

620 CALL HCHAR(11,9,44)2: CALL HCHAR(10,7,43)2: CALL HCHAR(10,8,40):: CALL HCHAR 


63@ CALL HCHAR(9,8,42):: CALL HCHAR(8,7,4@)2: CALL HCHAR(7,7,40) 
64® CALL HCHAR(9,10,40,11):: CALL HCHAR(9,9,41):3 CALL HCHAR(18,9,40)2: CALL HCH 
AR(10,10,44)22 CALL HCHAR(9,21,44) 
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66@ CALL HCHAR(8,17,41):: CALL HCHAR(8,18,46):: CALL HCHAR(8,19,42):: CALL HCHAR 
(7,1841): CALL HCHAR (7, 19,44) 

67© CALL HCHAR (6, 19,40) 

686 CALL HCHAR(1,3,34):: CALL HCHAR(1,4,33,9:: CALL HCHAR(1,7,35):: CALL HCHAR( 
2,2,34):: CALL HCHAR(2,3,33,5) 

69© CALL HCHAR(2,8,35):: CALL HCHAR(3,2,36):: CALL HEHAR(3,3,33,5):: CALL HCHAR( 
3,8,37)23 CALL HCHAR(4,3,356)  ' 

768 CALL HCHAR(4,4,33,3):: CALL HCHAR(4,7,37)s: CALL HCHAR(1.12,33,9)2: CALL HCH 
AR(1,11,34):: CALL HCHAR(1,21,35) 

718 CALL HCHAR(2,11,33,11):: CALL HCHAR(2,10,34):: CALL HCHAR(2,22,35)2: CALL HC 
HAR(3,10,33,12):: CALL HCHAR(3,9,34):: CALL HCHAR (3, 22,37) 

720 CALL HCHAR(4,9,33,5):: CALL HCHARi4,8,34)2: CALL HCHAR(4,14,37):: CALL HCHAR 
(5,8,36)3: CALL HCHAR (5,9,33,5) 

736 CALL HCHAR(5,14,35):: CALL HCHAR(6,9,36)23 CALL HCHAR(6,10,33,4)2: CALL HCHA 
R(6,14,37):: CALL HCHAR(S, 16,33, 4) 

746 CALL HCHAR(5,15,36):: CALL HCHAR(S,20,37)2: CALL HCHAR(4,15,34):: CALL HCHAR 
(4,16,33,5)3: CALL HCHAR(4,21,375 

759 CALL HCHAR(6,5,36):: CALL HCHAR(6,6,33,2):: CALL HCHAR(6,8,35)2: CALL HCHAR( 
5,4,36):: CALL HCHAR(5,5,33,2) : 

766 CALL HCHAR(5,7,35):: CALL HCHAR(7,8,37) 

77% CALL HCHAR(19,26,40,4):: CALL HCHAR(19,30,37):: CALL HCHAR(18,26,34):: CALL 
HCHAR (18,27,33,6):: CALL HCHAR(17,27,34) 

786 CALL HCHAR(17,28,33,5)3: CALL HCHAR(16,28,34):: CALL HCHAR(16,29,33,2)3: CAL 
L HCHAR(16,31,35):: CALL HCHAR(15,36,34) 

79 CALL HCHAR(15,31,35):: CALL HCHAR (20, 29,43) 

866 CALL COLOR(8,12,1):: CALL COLOR(1,3,1):: CALL COLOR(2,95 19 
810 DISPLAY AT(8, 1)SIZE(4) :"D":D 

820 DISPLAY AT(2,22)SIZE(8):"SCORE" :: DISPLAY AT(3,22)SIZE(6) 
T(5, 22) SIZE(8) : "TOP" 

830 DISPLAY AT(6,22)SIZE(6):" 
(9.22) SIZE (3): 1 

846 CALL SPRITE (#28, 128,5, 160,240) 

850 CALL SPRITE (#27, 136,2,150,220) 

866 CALL SPRITE (#20, 132,3,1, 158, 20+62,0) 

87% CALL SPRITE(#19,132,3,1,42,18+62,6) 

886 CALL SPRITE (#18,132,3,1,60,28+62,0) 

896 CALL SPRITE(#17,132,3,1,78, 19462, 0) 

960 CALL SPRITE(#16,132,3,1,100,15+62,0) 

918 CALL SPRITE(#15,132,3,1,123,20+67,0) ‘ 

926 CALL SPRITE(#14,132,3,1,140,23+62,0) 

93% CALL SPRITE(#13,116,2,50,112) 

946 CALL SPRITE(#12,116,2,106,222) 

959 CALL SPRITE (#1, 104,5,160,8) 

966 CALL SOUND (500, 196,5,262,5,330,5):: CALL SDUND(1000,391,5,523,5,659,5) 
976 TI=TI-1 :: DISPLAY AT(9,22)SIZE(3):""5TI 3: IF TI=@ THEN 1126 

980 CALL JOYST(1,X,Y)s: IF X=4 THEN 1030 ELSE IF X=-4 THEN 1640 R 
990 CALL MOTION(#1,0,0) 

1008 CALL, COINC(ALL,C)z: IF C THEN 1120 

1010 XS=RND#1 :: IF XS>.9 THEN 1076 

1620 G0TO 978 

1636 CALL MOTIONi#1,0,5):: CALL FATTERN(#1,104):: CALL COINC(ALL,C)z: IF C THEN 
1120 :: CALL PATTERN(#1,108):: GOTO 1666 

1646 CALL MOTION(#1,6,-5):: CALL PATTERNi#1,96):: CALL COINC(ALL,C):: IF C THEN 
1126 :: CALL PATTERN(#1,1066) 

1056 CALL POSITION(#1,Al,Bl)s: IF Bi<16 THEN 1960 ELSE 1006 
CALL LOCATE (#1,160.24):: GOTO 1066 

CALL PATTERN (#27, 146) 

ö FOR I=1 TO 5 

® CALL COINC(#1,#27,12,C):: IF C THEN 1126 

NEXT I 

 CALL PATTERN(#27,136):: GOTO 970 

CALL COINC(#1,#28,16,C):: IF C THEN 1180 

CALL MOTION(#1,6,0):: CALL PATTERN(#1,126) 

© CALL SOUND (1006, 266, 5,296,5,330,5) 

FOR I=1 TO 360 :: NEXT I 

1166 D=D-1 :: DISPLAY AT(8,2)SIZEI(): 
‚1@4):: CALL LOCATE (#1, 160,16) 

1176 TI=56 :: GOTO 976 

1186 CALL MOTION(#1,@,@):3 CALL PATTERN(#28, 124) 

1190 CALL SOUND (566, 196,5,262,5,330,5):: CALL SOUND(560,391,5,523,5,659,9):: CAL 
L SOUND (560, 783,5, 1046, 5, 1567,5) 

1206 FOR I=1 TO 366 :: NEXT I 

1219 A=A+106+TI z: DISPLAY AT(3,22)SIZE(6): 
1220 DISPLAY AT(11,12)SIZE(9)2"GAME OVER" 
1236 CALL SOUND(250,886,@):: CALL SOUND(250,783,6):: CALL SOUND{125,659,@):: CAL 
L SOUND(175,523,@):: CALL SOUND(125,659,0) : 

1246 CALL SOUND (250,587,0):: .CALL SOUND(125,659,@:: CALL SOUND(125,587,@):: CAL 
L SOUND(125,587,@):: CALL SOUND(125,783,@) : 

1256 CALL SOUND(125,659,0):: CALL SOUND(125,587,0):: CALL SOUND(125,587,@):: CAL 
L SOUND(125,523,6):: CALL SOUND(125,659,6) 

1266 CALL SOUND(125,587,@):: CALL SOUND(125,587,@):: CALL SOUND(125,783,6):: CAL 
L SOUND(125,659,6):: CALL SOUND(125,587,@) 

1276 CALL SOUND(125,587,0):: CALL SOUND(250,886,6):: CALL SOUND(250,783,0):: CAL 
L SOUND(125,659,6):: CALL SOUND(175,523,0) 

1286 CALL SOUND(125,659,8):: CALL SOUND (5@0,587,6) 

1296 IF A>T THEN T= DISPLAY AT(6. 22) SIZE(6) :""5T 

K IF S=8 THEN 1366 

131% CALL DELSPRITE(ALL):: CALL COLOR(8,2,1):: GOTO 116 


» DISPLAY AT(8,22)SIZE(8):"TIME" :: DISPLAY AT 


IF D=6 THEN 1220 :: CALL PATTERNi# 


A :: 6Z=6Z+1 :: TI=50 :: GDTO 846 


TI-99/4A 
DER GORILLA! 
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Commodore 64 


Nachdem das Spiel gestartet und die 
Daten eingelesen wurden, läßt sich mit 
der Funktionstaste ”F3” der Schwie- 
rigkeitsgrad (Level), mit dem das Spiel 
begonnen werden soll, verändern. Mit 
der Funktionstaste ”F1” wird das Spiel 
gestartet, wobei vorher die Frage der 
Steuerung geklärt wird. Das Spiel kann 
sowohl mit der Tastatur als auch mit 
dem Joystick gespielt werden, indem 
man entweder eine Taste für die linke 
und eine Taste für die rechte Steuerung 
drückt, oder den. Steuerknüppel. des 
Joysticks einmal kurz nach links und 
dann nach rechts bewegt. Auf dem 
Bildschirm erscheint nun das erste 
Bild. Sie befinden sich jetzt in der Zu- 
kunft und haben die Aufgabe, das neu- 
entwickelte Raketenauto unversehrt 
durch alle Bilder und Runden zu 
steuern. Dies erfordert all Ihre 
Fähigkeiten, Ihr Glück und Geschick, 
da Ihr Weg durch viele Gefahren er- 
schwert wird. Im 1. Bild müssen Sieeine 
tückische Brücke überqueren, die 
manchmal erscheint und dann wieder 
plötzlich verschwindet. Im 2. Bild 
machen Ihnen Laserstrahlen das Le- 
ben schwer. Eine Berührung mit diesen 
kann das Ende sein. Im 3. Bild müssen 
Sie einer wildgewordenen, geheimnis- 
vollen Kugel ausweichen, die es auf Sie 
abgesehen hat. 

Diese ersten drei Bilder erfordern eini- 
ges Können, da das Auto nur vorwärts 
fährt und Sie genau aufpassen müssen, 


22 CPU 


_ 


der Zukunft 


um nicht zu weit zu fahren. Das 4. Bild 
bringt dann einige Abwechslungen. Sie 
sehen Ihr Auto aus einer anderen Per- 
spektive, nämlich von oben und rasen 
mit hoher Geschwindigkeit über eine 
Teststrecke, über deren Abgrenzung 
man nicht hinausfahren darf. Die 
Strecke führt durch einen Tunnel, in 
dem tiefste Dunkelheit herrscht. Nur 
der Autoscheinwerfer macht es mög- 
lich, die Strecke weiter zu verfolgen. Ist 
das alles überstanden, erreichen Sie die 
nächste Runde und gelangen wieder 
zum Anfang der Teststrecke, dem 1. 
Bild. Der Schwierigkeitsgrad hat sich 
erhöht, das erfordert nun schnellere 
Reaktionen und noch mehr Geschick. 
Haben Sie schließlich die 3. Runde 
überstanden, ohne mehr als zwei 
Autos zu Bruch gefahren zu haben, 
kann man Ihnen nur gratulieren. 


Programmaufbau: 

10-30: Einlesen der Sprite-Daten 
40-505: Vorspann (Wahl des Levels 
und der Steuerung) 

510-550: Unterprogramm-Bildschirm- 
grafik der ersten drei Bilder 

690-780: Steuerung des ersten Bildes 
800-920: Steuerung des zweiten Bildes 
1000-1090: Steuerung des dritten 
Bildes 

1200-1295: Steuerung des 
Bildes 

4000-4020: Unterprogramm-Steuerung 
des Autos in den ersten drei Bildern 
4100-4130: Unterprogramm-Reaktion 


vierten 


des Autos auf Fehler des Fahrers in den 
ersten drei Bildern 

4500-4550: Unterprogramm-Berech- 
nung der Punkte (Score) in den ersten 
drei Bildern 

4600-4630: Unterprogramm- Links- 
steuerung des Autos im vierten’Bild 
4700-4730: Unterprogramm-Rechts- 
steuerung des Autos im vierten Bild 
4800: Unterprogramm-Reaktion auf 
Fehler des Fahrers im vierten Bild 
4900-4930: Unterprogramm-Belegung 
der Variablen des jeweiligen Bildes 
nach dem Schwierigkeitsgrad (Level) 
5000-5022: Data-Zahlen für die 
Sprites 

5023: Data-Zahlen für die Melodie 
6000-6090: Unterprogramm-Motorge- 
räusch des Autos 

7000-7020: Glückwunsch bei Beendi- 
gung der dritten Runde 


Variablenliste: 

L$: Enthält Taste für linke Steuerung 
R$: Enthält Taste für rechte Steuerung 
LE: Gibt Runde (Level) an 

CA: Gibt Anzahl der Autos an 

RU: Gibt Bild (1.4) an 

SC: Gibt Punktzahl an 

X: X-Koordinate von Sprite 0 und 1 
Y: Y-Koordinate von Sprite 0 

XX: X-Koordinate von Sprite 3 
L1,L2,L3,[4: Sind Maß für die 
Schwierigkeit in den verschiedenen 
Bildern und Runden 
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GUSUESBBB : FÜKEL. 8 
DIMZi 245 :v=53248 : FÜKE6SB, 125 
Li19=5:Le27=8:LE39ell:Li49el7 LFI Lee Li 7929: Li89=32:LC9)=35 
FÜkEZB48, 13: POKESST, 128 
FÜRN=STOSE : READY : FOKESSEH+HN, D:NERT 
FOKEZ841,14 
= FÜRN=ATÜSZ :READE : PORESPS+H. WM: NEKT 
PÜKEZB42.15 
FÜRH=BTÜSZE: READG : FOKEISB+N. GI: NEAT 
FÜKEW+15, 8: POKEV+39, 11: POKEY+48, 14 FOKEV+21, 7: FOKES3288, 8: POKES3231,8:LE=1 
PRINT" mu m mum BE U BORRR SEE BREREHE BR 
FRINTTRE3"E u Ba u Be BB BERBERE 
PREINTTAEE 3 BEE 5 BEE RO 
; FEINTTARE 153 "WAWWIRITTEN BY" :PRINTTABC13>"BPETER KOSTREDTE" 
PRINT" MI Fi mm" — 77 UM DAS SPIEL ZU STARTEN 
PRINT" A a FS3 | PERRI"— 7) UM DEH LEVEL ZU WAEHLEH 
FÜKEY+B,145:POKEV+1, 178 
PRIHTTAB«E145") 
FRINTTABE14D" 
PRINTTABE 145" 
PRINTTABC142" 
PRINTTAB« 145" Mr 
FOKEY+B, 145: POKEV+1, 178 
FÜREY+23,5:L$=""R$="":F=1:POKEL, 15 
POKEY+Z, 155: POKEV+3, 218: POKEV+23,6 
POKEYW+4, 143: FOKEV +5. 170: FOKEV +41, 1 
FRINTTABLZS>"RTLEVEL"LE:POKEFH,F 
F=F+1: IFF=21THENF=1 
GETA$: IFA$CH" w" ANDASC>"@" THEN?O 
IFA$="w" THENSS 
FÜKEFH, 118: LE=LE+1: IFLE=4THENLE=1 
GOTOr7a 
FÜKEL,8:505UE4358 
PRINT" STEUERUNG" 
PRINT" -LINKS : 7" 
GETL$: IFL$=""THENS3 
FÜKEFH, 43: FOKEL , 15: FORZ=1 T038 :NEAT :PÜKEL, 8: PRINT" ‚PRECHTS : 7" 
GETR$: IFR$=" "ÜRR$=L$THENSS h 
FÜKEFH, 184: PÜKEL, 15: FORZ=1T038 : NEXT : POKEL., @:CA=3:5C0=8: J=5:K=8: POKEV+Z7 4 
POKEY+Z1, 8: POKEW+33.1 
GOTD 538 
FRIHT" mmmmunnnenr mem BEE nn Enns 
PRINT" MM _____—— = 
PRINT" Wr et a 
PRINT" AA a NISDINDINDILNZ" 
PRINT" N; 
RETUFRH 
a en 
PRIHT") 
A RR EENLELLEKLENERELLLKLEEUEERLILUEE EG 
PRINT" “ 
RETURN 
a 
FÜRN=1TOS 
FRIHT" 2 “ 
5 HE#TH 
FRINT"MICOFTOTFTOTTITFTITFTITT IT II TI PT TG 
IRRE ET EEE Te re N 
RETURN . R 
PRIHT"T":PRINTTABU3H"SSCORE"SC" CARS"CA" LEYEL"LE:RU=1 
PRIHT" RiletsIn" :GOSUES1O 
FRINT"TTTI' :#=28: POKEFH, 1:PÜKEL., 15 
POKEY+21.1:FOKEY+B,.#:PÜKEY+1, 1565 
Ta=TI 
R=IHTCEHDE1D#L1D+38 
FÜRH=1TÜR 
PRINTTABL1EI "TI 
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> IFUSZFRETHENFOKEFL,4 


2 PÜKEW+21,0:FOKEY+1S 
3 PEIHT"TM":FRINTTABES 


a2 5 
3 FOKE1MZ24+5+40#Z , 31 
1825 GETWE: IFU&=R$THENHGOSUR4ARR : IFZ=51THENI ZOG 


GETW& : IFUS=R$STHENGÜSUE4SRB: IF4=&51THENSEE 


HEATH 

FÜRH=1TOR 

IFS> 11 SANDE<CISSANDPEEK CV+319=8 THENY=173:G0T041a6 
PREINTTAB“189"7 

GETHE: IFUS=R$THENGOSUB49BR: IF4=61 THENSSR 
IFUEZ>RETHENFÜKEFL, 4 

NEATH 

GOTO?15 

GOSUB4SRE hi 

:FOKEW+31. 8 

SCORE"SC" CARS"CA" LEYEL"LE:RU=2 
FRIHT" SSRIMIRIEIRIE" : GOSUESSS:PRIHT"! B 

AF=" Ua BE" =" El EN EN EN EN" 
FÜRH=4TO2SSTEFIZ 

PRINTTAECN>AE"TT" FRINTTABEH+3>BE"]" :PRINTTABCH+EHASF" TI" 
HE#TN:PRIHT 

POKEY+B, 19: POEEW+1,155:POKEV+21,1:4=19: Ta=TI 
E=INTERNDC15#9) +1 

PREIHTTAB<{LCR> ICH 

FORZ=1TOLZ 

GETU$: IFWE=RFTHENGOSUB49BB : IFA=51 THEN ACID 
IFUSZIRFTHENFOKEFL, 4 

IFFEEK<Y+313=1THEHNT=155:G0T04196 

NE#TZ 

PRINTTABELERSI"TITTTI N N N STITITN" 

GOTOSSE 


3 GOSUB4SEH 


FOEEY+21, E: FOKEW+16. 8: FOKEW+31:0 

PRIHT"I':FREINTTABC3I "SCORE" SC" CARS"CH" LEYEL"LE:RU=3 
FRINT'" SIEIMIEIKIi" : GOSUBS48: PRINT"WITITTITITITI" 

FOKEY+B, 19: POKEN+1,155:POKEY+21.1:#=10 
=L3:Z=12:D#=-1:D'Yr=1:T9=Tl 


‚IFWE<SZR£THENFOKEFL. 4 
IFFEEF.«+319=1THEHY=155 60704180 
FOKEIBZ4HSH40HZ, 32 

5=5+D% 

GETUE: IFU&=RETHENGOSLUP4GRB : IF@=61 THENI2OR 
IFFEEF.W+315=1THEHY=156: 50704100 
IFS=BTHENS=33 

=z+lr 

IFZ=S0RZ=15THENDT=-D'r 

GETUE: IFUE=RETHENHGOSUB4RRR: IFA=E1THEN 208 
IFPEEF..W+315=1 THENT=158:60T04108 

SOTO1E3A 

GOSUE4SAR: Rll=4 

FOKEV+21, 0: POKEY+16. 8: FOKEY+31, 0:%4=159: POKEY+2, 8: POKEV+3, 169: POKEN+5, 129 


1212 A#=147: FOKEY+4. SH 
1214 A$=" 
1216 B$="+ ie $ + 
1218 PRINT" TE" ä 
1222 POKES3221.12:POKES3289, 12: POKEV+21,2:POKEY+49. @:POKEFL, 175 
1221 FÜRN=1TOIR:ZCH>=15:PRINTTABC1S>B$:HESTH 
2 BBINT N e re ee je! 


& 
FRIHT" | SCORE"SC:FRINTTABELFITCARS"CA" LEWEL"LE" 1" 

FRIHTT DE — gg 
FÜRZ=1TOL4:PRIHT" TEE" :GOSUE1245: NEXT 

POKEY+4R, 11: POKES3281, 8: FOKES3288, A: PRINT"" :FOKEV+21,6:PÜKEFL. 248 
FORZ=1TOL4:GOSUB1245:HEAT 

LE=LE+1: IFLE=4THEN?OS@ 

GOSJE4333: 5OT0IE8 

FÖRN=1BTO2STEF-1:Z6N>=ZCN-12: NEXT 

GETWE: IFU&=RETHENGOSUESFFEG 

IFWU£=L$THEHRÜSUR4SBA 
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1243 IFFEEKiW+31)=2DRPEEK (Y+319=6THEN4SOB 
1258 R=INTERNDE1D#35+1:PRINT"&" 
1257 GETWE: IFH$SRFTHENGOSUR4FOS 
1253 ITU$=1_$THENGOSUB4EOB 
1253 IFPEEK(V+31>7=20RFEEK(Y+319=6THEN4508 
12654 IFR=ZTHENZCI>=ZELD-1:IFZELDSITHENZÜIIS2:GOTOL2FZ 
1278 IFR=1THENZEIDSZLLDHL: IFZCLI=31THENZEID=3B 
1272 FORH=1TOIA 
1275 GETWE: IFWE=RFTHENGOSUB47OR 
1276 IFU$>LFTHENGOSUB460B 
1277 IFFEEK.(V+31)=20RPEEK (V+313=6THEN4S08 
1288 PRINTA$:FRINTTABSZENIF"TTIB$ 
1299 HEATN 
1232 SC=5C+18:PRINTTABCSHMR"SC"E" 
1235 RETURN ’ 
4aga K=#+5: IF#=25STHENFOKEV+1E,1:5=1 
4918 FÜKEV+B,H:POKEFL, 147 
4328 RETURN 
4188 POKEH. 8: FORN=BTI1SB: NEXT: FÜRT'F=155T0YT : POKEY+1. 7  HEMT 
4118 FORN=BTO398 :FOKEV+23,4:NEAT 
4125 FÜRN=BTOSAB: FOKEW+21, 8: NEAT 
4125 CR=CR-1:FOKEV+29,5:POKEU,8 
4125 GOSUB69B8 : IFCA=ÖTHENPOKENV+21, 8° FOKEL, 8: RUH 
4138 ONRUGOTOSPB, 848, 1005, 1219 
4508 T=TI-T9:F=3 
4595 T=2999-T 
4518 PRINT" SEM" 
4528 FÜRN=SCTOSC+HTSTEFSO 
4535 PRINTTAB<CS}"TI'H:FOKEFH,F:F=F+1B: IFF=59THENF=9 
4548 NEATH 
4545 5C=SCHT: IFSCZOTHENSC=O 
4543 POKEFH;1 
4558 RETURH 
4668 IFA=ÖTHENJ=B:FOKEV+16.K:%=255 
4515 IFAX=1THENAA=253:K=8: POKEY+16, J:FOKEY +4, 5A 
46208 „K=a-3: AA=kK-2: PÜKEV+Z, A: POKEVY+4 RA 
46538 RETURH 
47a IFA=255THENJ=2: FOKEV+1E, J+K:A=0 
4715 IFA#=255THENK=4 : POKEY+16, J+K:A%=1 
4720 Kei+ #4+3: POKEV+Z,H:POKEV+4S HM 
4738 RETURN 
4208 FORA=1T014:FOKES3281.A:POKES328B. A: FORK=1TD18:HEAT:NEATA:GOTO4158 
4320 IFLE=1THENL1=159:L2=49:L3=8:14=38 
4318 IFLE=ZTHENL1=75:L2=15:L3=165:14=568 
4928 IFLE=3THENL1=23:L2=3:1L3=22:14=75 
4338 RETUFH 
saad DATA Brssas 
Saal DATA 2 3 31,193,.224,3 
5ag2 DATA 24.126:24,19,60, 204,28,1589,47.4,129,32,3,8,192 
5815 DATA 8,165,80,0.56.0.8,124.0.0.124.0.0,254.0,0,254.8,4, 254.64. 14,254. 224 
sa11l DATA 15,199,224,14,139,224,4.130,64,1,1,0,1,255.8,2 »43,61,187,128 
Milz DATA 63,219. 248,61,215, 120,25. 187,43, 1,125.8,3,255, 12 24a 
DATA 8.124,9.3,259, 128. 15. 2359, 224. 31.2593. 248, 31,253. 248, 21,255. 240 
DATA 15.255, 224,193, 253. 224.7,255,192,7.255, 192, 2, 255, 128, 3,259, 128 
DATA 1,255,,1,255: ,,294, .,2594, ,,124,,,124, ,,596: 96, ,,15,0 
DATA 57,75, 95,55, 199, 49,4,138, 116,59, 72,69,45.14, 197,157: 197, 72:39,9:595 
51=54272:FL=S1:FH=SI+1:1L=$1+24:W=51I+4:H=SI+6 
FOKESI+3. D#15+14 
PÜKEH. 15#16+15 
FOKESI+3,8:PÜKESI+2,8 
5 POKEFH.1:POKEFL.4 
POKEU, ES 
RETUFH 
FOKEY+21,8:POKEFH. 18: PÜKEFL , 22: PRINT" 4" 
FORA=1TO22: PRINTTAB(SI "HERZLICHEN GLUECKHUNSCH" :HESTA 
FORRA=!. T022 : READG :POKEFH. G: FORN=1T0588 : NEAT : NESTA 
RUN 
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Zeppelin Command 


für den Commodore 64 


Das: vorliegende Programm ist ein für 
den C-64 geschriebenes Geschick- 
lichkeitsspiel. Aufgabe des Spielers 
ist es, die letzten Überlebenden aus der 
Stadt zu retten. Doch dabei darf man 
nicht die Wolken oder die Häuser 
berühren. 

Das Spiel hat drei Bilder. Fliegt man 
am Anfang links aus dem Bild, so er- 
scheint ein neues. Fliegt man nun 
nochmals links aus dem Bild, so er- 
scheint die Basis. Fliegt man zu Anfang 
jedoch rechts aus dem Bild, so er- 
scheint ebenfalls die Basis. Man kann 
praktisch immer im Kreis fliegen. 

Das Spiel hat drei Schwierigkeitsstu- 
fen. Die Schwierigkeitsstufe wird im- 
mer dann erhöht, wenn in allen drei 
Bildern keine Menschen mehr sind. 
Um einen Menschen zu retten, muß 
man ihn mit dem Zeppelin berühren. 
Möchte man den Menschen absetzen, 
so muß man zur Basis fliegen und an 
dem Haken andocken. 

Zu Anfang stehen vier Schiffe zur Verfü- 
gung. Das Spiel endet, wenn entweder 
keine Menschen mehr in der Stadtsind 
oder keine Schiffe mehr zur Verfügung 
stehen. Auch wenn der Sprit alle ist, 
verliert man ein Schiff. 

Das Schiff wird mit dem Joystick an 
Port 2 gesteuert. 

Aber Achtung: Das Schiff reagiert sehr 
träge - man verrechnet sich schnell. 
Also früh genug gegensteuern!!! 


Programmerläuterung: 

8-9: Datas für Motorengeräusch 
10-50: Datas für Maschinenprogramm 
70-280: Datas für Sprites 

290-360: Sprites aktivieren 

500-730: Aufbau von Bild Nr. 1 
800-1050: Aufbau der Basis 
1100-1330: Aufbau von Bild Nr. 2 
1400-1670: Festlegung der Koordi- 
naten für die Menschen 

1700-1970: Spielerklärung 
1990-2219: Spielbeginn 

2230-2235: Joystickabfrage 
2274-2286: Setzen des Zeppelins 
2300-2340: Zeppelin nach oben 
2500-2530: Zeppelin nach unten 
2700-2740: Zeppelin nach links 
2900-2940: Zeppelin nach rechts 
3100-3150: Abfrage, ob Zeppelin OK 
60000-60004: Berichtigung, falls Koor- 
dinate für Menschen> 255 
60010-60160: Explosion des Zeppelins 
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61000-61030: Nächstes 
xX<0 

61500-61515: Register 16 des Vi- 
deochips setzen 
61700-61730: Nächstes 
X> 347 

61800-61810: Abfrage der X-Koor- 
dinate des Zeppelins 

62000-62080: Berührung mit Sprite 
62500-62590: Zeppelin in Basis 
63000-63520: Spielende 


Bild, falls 


Bild, f falls 


Variablenliste: 

V: Videochip 

Si: Soundchip 

FL: Lowbyte der Frequenz 

FH: Highbyte der Frequenz 

W: Wellenform 

A: Anschlag und Abschwellen des 
Tones 

H: Halten und Ausklingen des Tones 
L: Lautstärke 

MX(PLLE): X-Koordinate für Men- 
schen 


REM #*+# ZEPPELIN COMAND x#+* 
REM #»#* COPYRIGHT BY ... 
REM *#%* HOLGER CORNELSEN###* 
REM ##* TEL. 02288/4329 x#x* 


MY(PLLE): Y-Koordinate für Men- 
schen 

FU: Treibstoff 

MC: Menschen in der City 
MB: Menschen an Bord 

PB: Menschen in der Basis 

PI: Momentanes Bild 

LE: Level 

X: X-Koordinate des Zeppelins 
Y: Y-Koordinate des Zeppelins 
JO: Wert der Joystickabfrage 
X1: Wert, der zu X addiert wird 
Y!: Wert, der zu Y addiert wird 
FX: Flag für X-Richtung 

FY: Flag für Y-Richtung 

SH: Anzahl der Schiffe 

MD(D): Geräuschdaten 

FF: Flag, ob Daten verändert 
FE(PD): Enthält, welche Sprites ent- 
scheiden 

Li: Flag, ob Leyel=1 

L2: Flag, ob Level=2 


DATA9S,2,0,3,8,0,248,12,2,8,4,8,0,192,16,2,8,6,8,0,64,0,38,243,31 


DIMMD (24 ) : FORK=8T024 :READQ MD (K)=GINEXT 


REM DATAS FUER MSP 


DATA32 ,253,174,32,158,183,138,18,170,160,8,189,208,2,133,12,189,289,2,133,13 
DATA177,12,153,64,3,288,192,63,208,246,96,8,192,63,192,126,192,189,192,252,19 


) FOR1=680T0711:READQ:POKEI,Q:NEXT 
FOR1=728T0729:READQ:POKEI,Q:NEXT 
REM ZEPPELIN LINKS 


DATAB,8,8,08,08,0,0,8,0,8,0,8,0,192,0,7,248,8,31,252,2,63,255,2,63,255,198,127 
DATA2SS ‚254 ‚255,255 ,255,,255,,255,,255, 127,255 ,254 ‚63,255 ,238 ,63,255, 138,31 ,254 
DATA2,7,248,8,3,208,0,2,16,8,1,224,8,0,192,8 


REM ZEPPELIN TURN LEFT 


DATAO,8,90,8,0,8,0,8,0,8,0,0,3,228,8,7,252,8,15,252,0,15,248,90,31,252,8,27 
DATA254,0,49,255,128,59,255,0,63,248,8,63,248,8,31,248,0,31,248,8,15,224,8 


DATA3,224,0,1,32,8,1,192,0,0,128,8 
REM ZEPPELIN VORN 


DATAB,0,8,0,0,0,8,8,0,0,0,8,0,28,8,8,62,8,8,127,0,8,127,0,8,255,128,8,247,128 
DATA1,227,192,7,247,248,1,255,192,8,255,128,8,255,128,0, 127,8 


DATAB,62,0,0,62,0,0,34,8,8,28,8,80,8,8 


REM ZEPPELIN TURN RIGHT 


DATAB,8,8,8,8,8,0,8,0,8,0,8,0,39,192,0,63,224,0,63,248,8,31,248,8,63,248 
DATAB,127,216,1,255,148,0,255,220,08,31,252,90,31,252,9,15,248,0,15,248,0,7 


DATA248,0,7,192,8,4,128,8,3,128,8,1,8 


REM ZEPPELIN RECHTS 


DATAB,8,8,0,8,8,8,0,0,8,8,8,0,3,0,0,15,224,64,63,248,64,255 ,252 ,99 ,255 ,252 
DATA 127,255 ,254 ‚255,255 ,255,255,259,255, 127,255 ,254,, 183,255 ‚252 
DATASS ,255,252,64,127,248,8,31,224,8,19,192,0,8,64,8,7,128,8,3,8 


REM ONE OF THE MEN 


DATAB,8,8,2,8,0,8,8,8,8,8,8,8,8,0,0,8,0,8,0,8,8,0,0,2,0,.0,8,8,8,8,8,8,98,8,8 


DATAB,0,0,0,8,8,0,8, 


‚8,8,8,0,84,0,0,56,9,0,16,0,0,56,0,8,48,8 


FOR1=491527T049484 +62 :READQ:POKEI ,QINEXT 


FOR 1=968T0969 +62 :READG :POKE I ,Q:NEXT 


V=53248:POKEV+21,1S5:POKEV+39,2 
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SYS688 ,9:POKE2848, 13:POKE2841,15:POKE2842,15:POKE2843,15 
338 POKEV+48,11:POKEV+41,11:POKEV+42,11 

348 POKES32898 ‚246:POKES3281 ,255:PRINT" 
350 SI=-54272:FL=SI:FH=SI+1:1TL=SI+2:TH=S1+3:W=SI+4:A=SI+5:H=SI+6:L=SI+24 
368 G60T01488 

REM PICTURE 1 


usa 


548 PRINT“ un a a 
S58 PRINT" a "5 :PRINT* 
568 PRINT" ge Wu __",TABCS>"E 


578 PRINTTRB<CI2) "=== M:PRINTTAB(SO) "DM 
"= B*:PRINTTAB<38)" 
:PRINTTAB (38) "DM 


B“:PRINTTAB(38> 
8" :PRINTTAB (39) "DOM 


B" :PRINTTAB (39) "O* 


= 
= 
[) 
= 
" 
= 

":PRINTTAB<39) "DE 
= 


B" :PRINTTAB<32) "OA" 
B":PRINTTAB<32)"DM 
RINTTAB (32) "O4 
8’ :PRINTTAB (32) "Dg""" 
ma 


FIT CTETTN 


so® 
885 PRINT"IZI" 

818 PRINTTABCISI"___* 

828 PRINT*___":PRINTTABAHLI"L 
838 PRINTTAB(29)" mm " 

848 PRINTTABCL?I" —— " 

858 PRINT" te 

868 PRINTTAB<27)"___" :PRINTTAB(38) "IL" 
878 PRINTTAB(SI "I" 

888 PRINTTABCISI" m" 

838 PRINTTAB(33) "mM 
988 PRINTTAB(S1)" = 

918 PRINT" [>] —— 1 !PRINTTAB (39) "0 
928 PRINT" B*:PRINTTAB<24) "O4 u 
930 PRINTTAB(9)"M KL. m" :PRINTTAB<23)> 
9348 PRINTTAB(3)"M M":PRINTTAB<22)"DM 
358 PRINTTAB(9) "4 M*:PRINTTAB<22Y"DM*® 
968 PRINTTAB<9)" M":PRINTTAB<22) "DI"® 
9378 PRINTTRBO am am dm 
988 PRINTTRBCSY' 4m ame am 
998 PRINTTAB(S?"M n.» as 
1808 PRINT" EPRINTTABCITI DIR M 
1818 PRINTTABCI "Am a " 
1028 PRINTTAB(I7)"M ":PRINT"OI“ 

1830 PRINTTAB(9) ge 2 W:PRINT'OH" 
10848 PR NT " SOEDDKEEDDCEEE a by 
1858 RETURN 

1188 REM PICTURE 2 

1119 PRINTIAII" 

1128 PRINTTAB(6)"____* :PRINTTAB( 18)" m" IPRINTTAB(32) "IL * 
1138 PRINT" ___M":PRINTTAB<27>"___" 

1148 PRINTTAB(S" _— 01 WWU:PRINTTAB(3TI'OL_" 

1150 PRINTTAB< 17) "Om "enge 

1168 PRINT" dl" :PRINTTAB(ISI "DR" 
1178 PRINTTAB(ISY "may" a 
1188 PRINTTAB(IW "r==“ 
1198 PRINTTAB(IS?"M ML m":PRINTTAB(S2Y"DI"" m" 

1208 PRINT" 3 BEI" :PRINTTABC14) "DL mil tPRINTTAB(32) "DI" m Im" 
1218 PRINT"OM PRINTTAB<1S)"O M*:PRINTTAB(32> 
1228 PRINT"A :PRINTTAB<(19>"O4 M*:PRINTTAB(S2)"D 
1238 PRINT"Q !PRINTTAB<19>)"D4 :PRINTTAB (32) "ON 


:PRINT"EH" , 
® W':PRINT"EH“ 
“nn M:PRINT-ER" 
.„..B":PRINT"OR" 
ae. “ne W:PRINT"OR" 
W*:PRINTOR" 
W':PRINT"OR" 
..m 
“n M:PRINT-ER* 


1248 PRINT" :PRINTTAB<1S) "OHM [1 5 

1250 uw“ w" :PRINTTAB<32)"OI"" m" 

1260 ww W* :PRINTTAB<31)*OM 

1278 = uw @" :PRINTTAB (31) "DO 

1280 w ww =” = 
1298 tPRINTTAB<1S) 

1308 B" :PRINTTAB<19> 

1318 PRINT " RER a" 


= 

1338 RETURN 

1488 DIMM<3,8),MY(3,8) 

1485 REM KOORDINATEN FUER MENSCHEN 
1418 MX(1,0)=257:MY(1,0)=85 a 
1428 MXC1,1)=138:MYC1,1)=69 

1438 MX(1,2)=65:MY(1,2)=189 

1448 MX(1,3)=2811MY(1,3)=77 

1458 MX(1,4)=167:MY(1,4)3=173 

1468 MX(1,5)=28:1MY(1,5)=189 

1478 MX(1,6)=321:MY(1,69=173 
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MRC1,79=253:MY(1,79=213 

MX (1,8)=95:MY<1,8)=189 
MX(2,0)=263:1MY(2,0)=1989 

MX (2,19=174:MY(2,1)=183 

MX (2,2)=45:1MY(2,23=117 
MX(2,3)=313:MY(2,3)=173 

MX (2,4)=207:1MY(2,4)=125 
MI(2,5)=152:MY(2,5)=165 
MX(2,6)=257:1MY<2,6)=223 

Mi (2,7)=128:Mr<2,7)=165 
MX(2,9)=72:1MY(2,8)=125 

MX (3,0)=279:MY(3,0)=189 
MX<3,1)=210:MY(3,1)=165 
MX(3,2)=73:MY(3,2)=173 
MX(3,3)=312:1MY(3,3)=197 

MX (3,4)=2351MY(3,4)=197 
MX(3,5)=48:MY(3,5)=133 

MX (3,6)=2841MY(3,6)=229 

MX (3,7)=1551MY(3,7)=229 

MX (3,8)=140:MY(3,89=173 
FECIH=ISIFEC2)=1SIFECH)=151SH=41FU=208B 1MC=27 1MB=B1PB=BiLi=lıL2=1 
PlI=1:1LE=® 

REM SPIELERKLAERUNG 

PRINT" ZEPPELIN COMAND*“ 
PRINT"MEIHRE AUFGABE IST ES MIT IHREM" 
PRINT*IREPPELIN DIE LETZTEN UEBERLEBENDEN" 
PRINT"MAUS DER STADT ZU RETTEN. * 
PRINT"BBERUEHREN SIE DABEI ABER NICHT DIE* 
PRINT"IBIOLKEN ODER DIE HAEUSER!!" 

PRINT"MES WAERE IHR UNTERGANG." 

PRINT"EUM DIE MENSCHEN ZU RETTEN,MUESSEN SIE* 
PRINT"MSIE MIT DER GONDEL DES ZEPPELINS BE-" 
PRINT"MRUEHREN.WOLLEN SIE DIE MENSCHEN ABSETZEN" 
PRINT"SO FLIEGEN SIE ZUR BASIS.“ < 
PRINT" -TASTE-":1POKE198,8:WAITISB,1 
PRINT" ZEPPELIN COMAND* 
PRINT"IBPIESE ERREICHEN SIE,INDEM SIE RECHTS AUS" 
PRINT"DEM BILD HERAUSFLIEGEN.SIE MUESSEN AM* 
PRINT"EHAKEN IM BUNKER ANDOCKEN. " 
PRINT"ZFLIEGEN SIE ABER LINKS AUS DEM BILD,SO* 
PRINT"BERSCHEINT EIN NEUES BILD.FLIEGEN SIE" 
PRINT"MNOCHMALS NACH LINKS,SO ERSCHEINT AUCH" 
PRINT"IDIE BASIS." 

PRINT" VIEL GLUECK!* 


PRINT" -TASTE-":POKE198,8:WAITISB,1 
REM SPIELSTART 


ONP 160SUBS0® ‚8898, 1188: GOSUB2 108 ıG0T02288 
POKEV+16 ,PEEK (V+16)AND13: 1=8:FORT=LE*3TOLEx3+21 I=I+2 
IFMX (P1,T)>=256THENGOSUBE9888:GOTO2138 
POKEV+I,MX(PL,TD 
POKEV+1+1,MY<PI,TD 
POKEV+21,FE<PID 
NEXT:RETURN 
REMZEPPELIN ERSCHEINEN LASSEN 
FORK=8T024 1 POKESI+K ‚MD (K) NEXT 
POKESI1+4 ,65:POKESI+11,651POKESI+18,65 
FORY=18T073:POKEV, 11%38:POKEV+1,Y:FORT=8T058:NEXTINEXT 
K=881Y=73 
Fx=1 
POKEV+31 ,8:1POKEV+38,8 
REM JOYSTICKABFRAGE 
POKES6322 ‚224 1 JO=PEEK (56328) -118:POKESS322 ‚255 

» IFJOX=BTHEN2274 
ONJOGOTO2990 ‚2274 ‚2274 ‚2274 ‚2708 ‚2274 ‚2500 ,2308 ,2274 
KeXt+tXkii IFX<BORX >2SSTHENG 1888 
IFPEEK (V+16) AND 1= 1 ANDX<2S6THENG 1508 
POKEV,x 
REM 
YaY+Yıı IFY<SSORYI22ITHENGOSUB2287 
POKEV+1,Y 
60703188 
IFY<SSTHENY=551 Y1=98:RETURN 
IFYYIZ2ZSTHENY=229: Y1=B:RETURN 
REM OBEN 
IFFY<>1ANDYIPOTHENYI1=Y1-.2S:FU=FU-SIFF=1160T02274 
FU=FU-SıFY=1: Yi=Y1-.5: IFYI<C-3THENYI1=-3 
FF=1:60T02274 
REM UNTEN 
IFFY<DBANDYI<CBOTHENYI=Y1+.2S:FU=FU-SIFF=11G0T02274 
FU=FU-S:FY=2: Yl=eYi+.5: IFYII3THENYI=3 
FF=1:60T02274 
REM LINKS 
IFFX< > IANDX 1 >OTHENX 1=X1-.25:1FU=FU-SIFF=1160T02274 
IFFX<>ITHEN2748 
x1=X1-.5:FU=FU-5: IFX1X-3THENX1=-3 - 
FF=1:607T02274 
FX=1:FORT=4TOBSTEP-1:1SYS688, T1FORI=8T0388:NEXTINEXT:IGOTO2728 
REM RECHTS 
IFFR< JBANDX I <OTHENX 1=X1+.251FU=SFU-S:IFF=11G0T02274 
IFFX<>2THEN2948 
x1=X1+.5:FU=FU-5: IFX133THENX1=3 
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Commodore 64 


FF=1:60T02274 
23498 FX=2:FORT=8T04:SYS688 ,T:FORI=8T0308:NEXT:NEXT:GOTO2928 

3188 POKEL, INTCRND(1)x3)+20 

31901 IFFU<=OTHENS881® 

3105 IFFF=1THENFF=8:PRINT"M . 

3118 PRINT"MBFUEL"SFUS" CITY"sMCz" BORD"SMB}" BASE"PB 

3120 IFPEEK<V+31)=1THENG981® 

3138 POKEV+38,8: IFPEEK (V+38)< >OTHENS2888 

3148 IFPI=2ANDINTCK) =4BANDINTCY)=189ANDMB< >OTHENG2SBO 

3150 G0T02228 

59999 END 

E0008 IFI=2THENP=2 

sE001 IFI=4THENP=4 

600802 IFI=STHENP=8 

60083 POKEV+16,PEEK(V+1S)ORP 

60884 J=MX(P1,T)-256:POKEV+1,J:RETURN 

608089 REM EXPLOSION 

688818 FORK=8TO24:POKESI+K,.BINEXT 

80015 POKEL,15:POKEFL,98:POKEFH,8:POKEA, 16*7:POKEH, 16x18: POKEW, 129 

60828 FORT=158T01STEP-1:POKEFH,T:NEXT:POKEW,® 

60038 POKEFL,S®:POKEFH,1:POKESI+7,22:POKESI+8,1:POKESI+12,8:POKESI+13,16%15 

60848 POKES3231,1:POKES3288, 1 

680850 POKESI+11,129:POKEW, 129 

69068 FORT=15TOBSTEP-1:POKEL,T:FORI=8T0188:NEXT:POKES3288,T:POKES3281,T:!NEXT 

68878 POKEW,®:POKESI+11,0:POKES3281,255:POKES3288 ‚246 

60075 POKEV+21,0 

60077 SH=SH-1: IFSH=8THENS3808 . 

60080 PRINT"MIIME SCHON WIEDER EIN SCHIFF ZERSTOERT.* 

6801088 IFSH=1THENGBL1O & 

60105 PRINT"MMI DU HAST JETZT NOCH"SH"SCHIFFE.":G0T068128 

60110 PRINT" DU HAST JETZT NOCH EIN SCHIFF.“ 

SO120 PRINT"WEEMEME - -TASTE-":POKEI198,8:WAITIS8,1 

680138 MB=B:Fi=1:FF=11FU=28B8:POKEV+16,8:X1=8:Y1=8:SYS688,8 

60150 IFMC<=18ANDL 1=1THENG3588 f 
60152 IFMC<=3ANDL2= 1 THENG3508 
60155 IFMC<=OTHENG3000 

601698 GOTO2008 

61880 PI=PI-1:IFPI<ITHENPI=3 
61018 ONPIGOSUBS88,888, 1188 
61020 GOSUB2108 

61038 X=347:60T061508 

81500 POKEV+16,PEEK(V+1S)0RI 
81519 X2=X-236: IFK2<OTHENK2=B 
81515 POKEV,X2:60T02278 

81788 PI=PI+1:IFPID3THENPI=1 
61718 ONPIGOSUBS08,808 ,1188 
61720 GOSUB2108 

81730 X=0:60T061988 

61800 IFX<BOTHENG1988 

61805 IFX>347THENG1708 

61818 IFX>2SSTHENG 1508 

61980 POKEV+16,PEEK(V+16)AND14:60T02276 
81999 REM BERUEHRUNG MIT SPRITE 
62088 FORI=®T024:POKESI+I,O:NEXT 
62018 POKEL,1S:POKEA,B:POKEH,16*15 
682028 POKEW, 17:FORT=8TO4B:POKEFL ‚48: POKEFH, INT(RND(1) #188) +6B:NEXT 
62838 MC=MC-1 

S2048 MB=MB+1 

62058 FORI=®T024:POKESI+I,MDCI)NEXT 

62868 POKEW,65:POKESI+11,85:POKESI+18,65 

62078 B=PEEK(V+38)-1 

62088 FF=1:POKEV+21 ,PEEK(V+B1)AND(15-B):POKEV+38,B:FE(PI)=PEEK(V+21):G0T02228 
62588 FOR1=8T024:POKESI+I,O:NEXT 

62518 POKEL,15:POKEA,Bd:POKEH, 16*15:POKEW,33 

62528 FORT=8TO15B:POKEFL ‚48:POKEFH,T:NEXT 

62538 POKEW, 17:FORT=1TOMB 

62548 PB=PB+1:FORI=8TOS®:POKEFL ‚48: POKEFH, IINEXT:NEXT:POKEW,® 

62550 IFMC<=BOTHENS3008 

62560 FORI=8T024:POKESI+1,MDCI) NEXT 

682565 POKEW,68S:POKESI+11,65:POKESI+18,85 

62570 FU=2008:MB=B:Fi=1:FFei 

62588 IFMC<=18ANDL 1=1THENS3588 

62585 IFMC<(=3ANDL2=1THENG3508 

62590 FF=1:60T02228 

63090 POKES1+4,8:POKESI+11,8:POKESI+18,8 

83818 POKEV+21,8:PRINT"iAM" 

63028 PRINT" TJA, DAS SPIEL IST ZUENDE." 

63038 PRINT" DU HATTEST ZULETZT FOLGENDE WERTE: " 

83849 PRINT"M MENSCHEN IN DER CITY: "MC 

63058 MENSCHEN AN BORD: "MB 

683868 PRINT"M MENSCHEN IN DER BASIS: "PB 

63978 PRINT"M FUEL ="FÜ 

683088 PRINT" WILLST DU NOCH MAL?" 

683898 GETAS: IFASC>"J"ANDAS<>"N"THENS3888 

83188 IFAs="N"THENPRINT"ZBBI SCHADE! ":END 

63118 X1=0:Yi=B:POKEV+16,0:5YS688,8:60T01405 

63598 IFMC<=ISANDLI=ITHENLI=B:LE=1 
63510 IFMC<=SANDL2=1THENL2=B:LE=2 
683515 FEC1I=ISTFEL2Y=IS:FEC3I=1S 
FX=1:5Y5698,8:X1=8:Y1=8:60T02888 
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Computer können 
lesen! 


Was vor Jahren noch nach Utopie klang, ist im Orweil- 
Jahr längst Wirklichkeit. 

Ein neues Lesegerät wurde anläßlich der Comdex vorge- 
stellt, der sogenannte „„Omni-Reader” von Oberon. 

. Er kann alle gängigen Schreibmaschinenschriften lesen, 
die dann über eine RS232-Schnittstelle an den Computer 
gegeben werden. 

Zusätzlich können andere Schriftarten eingestellt wer- 
den, sodaß man den „Omni-Reader” getrost als „intelli- 
gent” bzw. „lernfähig” bezeichnen kann. 
Das System kostet ca. 500 Dollar und soll It. Hersteller. 
schneller als so manche Sekretärin sein. 


Hongkong-Computer-Center 
öffnet seine Pforten 


Vom 8. bis 10. Oktober 1984 
findet an der Freien Univer- 
sität Berlin die Fachtagung 
der Gesellschaft für Infor- 
matik "Informatik - Heraus- 
forderung an der Schule und 
Ausbildung” statt. 

Ziel der Tagung soll sein, die 
Ausbildung in Informatik, 
ihre Auswirkungen und Rea- 
lisierungen in den verschie- 
denen Bildungs- und Berufs- 
bereichen darzustellen, und 
Lehrer, Wissenschaftler, Do- 
zenten, Lehramtstudenten, 
Behörden und Verwaltungen 
sowie Ausbildungsleiter der 
Industrie, Herstellerund An- 
wender der Informations- 
technologie zu Gesprächen 
zusammenzuführen. 

Aus diesem Anlaß findet am 


Fachtagung der Gesellschaft 
für Informatik in Berlin 


elektronik - Herausforde- 
rung an Schule und Gesell- 
schaft” ein öffentlicher Vor- 
trag von Herrn Georg-Berndt 
Oschatz, Präsident der KMK, 
mit einer sich anschließen- 
den Podiumsdiskussion 
statt. 

Während der Tagung wird 
auch DV-Herstellern, Soft- 
wareentwicklern und Verla- 
gen im Rahmen einer Aus- 
stellung die Gelegenheit ge- 
boten, ihre neuesten Ent- 
wicklungen im Bereich 
Schulhardware, Schulsoft- 
ware, Schulorganisation, 
Unterrichtsmedien und 
Schulbücher etc. vorzustel- 
len. Die Ausstellung ist am 
Mittwoch, den 10. Oktober 
1984, auch für die Öffentlich- 
keit geöffnet. 


Das erste Computer-Zen- 
trum Asiens wird im Septem- 
ber in Hong Kong eröffnet. 
Auf einer Fläche von rund 
qm werden ständige 
Informations- und Verkaufs- 
ausstellungen einen Über- 
blick über internationale 
Neuentwicklungen aus aller 
Welt der elektronischen Da- 
tenverarbeitung geben - vom 
Mini-Heimcomputer bis zur 
multinational operierenden 
Großanlage. 
Vom Kauf über Miete- oder 
Leasing bis zur Basis-Infor- 


Nachfolgend informieren 
wir Sie über den neuen Profi- 
Monitoranschluß für den 
Sinclair-Spectrum, den’ die 
Firma _Noack-Computer, 
Duisburg, herstellt. 

Der Profi-Monitoranschluß 
wird einfach auf den Daten- 
bus des Spectrums aufge- 
steckt. Bastel- oder Lötar- 
beiten sind nicht erforder- 
lich. Der Spectrum braucht 
nicht geöffnet zu werden, da- 
her auch. kein Garantiever- 
lust beim Neugerät. 
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mation und Schulung soll 
dem interessierten Ver- 
braucher im "Asian Com- 
puter Plaza” (gelegen im Sil- 
vercord Building an der 
Canton Road im Stadtteil 
Tsimshatsui) alles geboten 
werden. Die Räumlichkeiten 
erlauben zukünftig regel- 
mäßige Seminare, die die 
verschiedensten Aspekte der 
Computer-Technologie be- 
handeln werden. Das Zen- 
trum wird täglich (auch 
Sonntags) von 10 bis 20 Uhr 
geöffnet sein. 


Monitoranschluß für Spectrum zum ”Aufstecken”, 
ohne Montage sofort ein klares Bild mit jeden Sinclair-Spectrum 


Der Profi-Monitoranschluß 
liefert sofort ein kristall- 
klares, monochromes Bild 


- auf dem angeschlossenen 


Monitor. Dadurch ist erst- 
mals langesermüdungsfreies 
Programmieren und echte 
Textverarbeitung, z.B. mit 
TASWORD-IL, ohne Au- 
genschmerzen möglich. 

Bei dem Monitoranschluß 
wird der im Bild störende 
Farbträger von 4,3 MHz opti- 
mal unterdrückt. 

Daher treten auch keine 


8. Oktober 1984, um 17.00 
Uhr, zum Thema "Mikro- 


Timex gibt auf 


Nach Texas-Instruments und Mattel hat sich nun auch die 
amerikanische Firma Timex vom Billig-Computermarkt 
zurückgezogen. 

Seit 1982, als der revolutionäre Timex 1000/Sinclair 
1000 zum Preis von unter 100 Dollar verkauft wurde, er- 
reichte die Firma immerhin einen Marktanteil von 28% bei 
Homecomputern. 

Das schottische Timex-Werk wird allerdings die Geräte 
für Sinclair auch weiterhin produzieren, sodaß der euro- 
päische Markt nicht vom Rückzug der Amerikaner beein- 
flußt wird. 


störenden Gittermuster oder 
Bildschlieren auf, wie bei al- 
len Primitivlösungen, die in 
verschiedenen Computer- 
zeitschriften zum Nachbau 
veröffentlicht wurden. 


Auflösevermögens der Bild- 
röhre zum Anschluß weni- 
ger geeignet. RGB-Monitore 
können auf dem Grünkanal 
angeschlossen werden, falls 
der RGB-Monitor auf dem 


Der Spectrum Monitor-- Grünkanal synchronisiert. 
toranschluß liefert ein Falls Sie einen Monitor mit 
Video-Normsignal nach hoher Bandbreite haben, 


CCIR, daher paßt er an alle 
handelsüblichen Monitore 
mit schwarz/weiß, grünem 
oderbernsteinfarbigem Bild- 
schirm. Farbbildschirme 
sind auf Grund des geringen 


können Sie auch wahlweise 
mit ”invertierttem Bild” 
arbeiten. 
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Erfinder des 16-bit-Mikros auf 
deutschem Markt 


Panafacom kooperiert mit 


SE Spezial 


Electronic/Gemeinsame Tochter von 


Matsushita und Fujitsu 


Bückeburg, im Juli 1984 - 
Seit Jahren wartet alles dar- 
auf, daß die japanischen 
Elektronikkonzerne den 
Amerikanern ihre führende 
Rolle im deutschen Mikro- 
computer-Markt streitig 
machen. Doch im Gegensatz 
zu den vergleichsweise pro- 
blemlosen Massenmärkten 
der Konsumelektronik schei- 
nen sich im Mikrocom- 
puter-Markt erstmals Ver- 
kaufsmentalitätsprobleme für 
die meist japanisch ge- 
führten Vertriebsgesell- 
schaften in Europa aufzu- 


tun. 

Deshalb kam die Meldung 
nicht überraschend, daß ei- 
ner der führenden ja- 
panischen Hersteller von 
Mikrocomputern nunmehr 
seine Aktivitäten einem der 
erfolgreichsten deutschen 
Elektronikdistributoren über- 
trug. Die SE Spezial Electro- 
nic Bückeburg hat die Ver- 
marktung des -16-bit-Mikro- 
computers SBC' DUET-16 


von Panafacom seit März 
1983 übernommen. Interes- 
sant an diesem Arrangement 
ist, daß hierbei gleich zwei 
namhafte japanische Kon- 
zerne beteiligt sind. Mit 
Matsushita und Fujitsu sind 
es noch dazu die erfolgreich- 
sten auf dem Elektro- 
niksektor, die je zur Hälfte 
das Kapital an der Pana- 
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facom Limited halten. So ist 


Panafacom ein Beispiel für 
das offensichtlich uner- 
schöpfliche Potential japani- 
scher Großunternehmen, die 
in Deutschland weitgehend 
unbekannt sind, jedoch von 
der Umsatzgröße her welt- 
weit einen vorderen Platz un- 
ter den großen Elektro- 
nikunternehmen einneh- 
men. 14.000 ausgelieferte 
Computereinheiten im Jahr 
1983 und der damit verbun- 
dene Sprung auf Platz 2 der 
japanischen Mikrocom- 
puterhersteller unter- 
streichen die Bedeutung. Al- 
lerdings wird es selbst Ex- 
perten in Europa bekannt 
sein, daß Panafacom bereits 
1975 den ersten 1-Chip- 
Computer der Welt auf 16- 
bit-Mikroprozessorbasis ent- 
wickelte. Deshalb ist es gera- 
dezu selbstverständlich, daß 
der hiervon abgeleitet 
DUET-16 mit der CPU-8086- 
2 ein echter 16-bit-Mikro- 
computer ist. Im Gegensatz 
zu vielen anderen, die sich 
mit ihrer 8088-CPU in die 16- 
bit-Klasse einordnen, in Wirk- 
lichkeit jedoch die Nach- 
teile von 8-bit-Rechnern 
haben. 

Mit dem technologischen 
Background des 16-bit-Er- 
finders bietet der DUET-16 
alles, was heute von den lei- 
stungsstärksten Mikrocom- 


putern erwartetwird. Das Be- 
triebssystem arbeitet mitMS- 
DOS oder CP/M 86, so daß 
ein großer Teil der für den 
IBM-PC geschriebenen Soft- 
ware auf dem DUET-16 be- 
sonders schnell abläuft. 
IBM-Kompatibilität wird 
auch bei der Kommu- 
nikation mit Zentralrech- 
nern -erreicht, indem der 
DUET-16 IBM-Terminal- 
Emulation durchführt. 
Ein komplettes Schnittstellen- 
angebot mit 2xV24, Cen- 
tronics-Parallel und optio- 
nal IEEE-488 sorgt für die 
nötige Anschlußkompatibi- 
lität zur externen Peripherie, 
zu der auch Festplatten- 
speicher bis zu 20 MByte zäh- 
len. Die _Grundkonfi- 
guration mit 128 KB RAM, 2 
Bei ee mit 
720 KB formatierter 
Speicherkapazität, deut- 
scher Tastatur und Mono- 
chrommonitor kostet DM 
7.850,- zuzügl MwSt. 
Zu diesem günstigen Preis/ 
Leistungsverhältnis kommt 
noch der unschätzbare Vor- 
teildererfahrenen deutschen 
Generalvertretung, der ins- 
besondere auch von der Be- 
ratung und Softwareseite her 
den SBC DUET-16 zu einem 
chancenreichen Angebot 
macht. 


Berichte 


Spezialisten 


tun sich 


zusammen 


Wer kennt nicht das alte Pro- 
blem: Am laufenden Band 
werden Computer-Anwender 
mit Neuheiten überhäuft. Bei 
näherem Hinsehen zeigt sich 
jedoch oftmals, daß die 
"Neuheit” gar nicht so neu ist 
oder die versprochenen Lei- 
stungen nur auf dem Papier 
zu finden sind. Je kürzer die 
Lebenszyklen der Produkte, 
desto schwerer haben es die 
Hersteller, Zubehör. und 
Dokumentationen recht- 


zeitig zu liefern. 

Die Firma Qume, Tochter 
der ITT und Marktführer bei 
professionellen Typenrad- 
druckern, hat jetzt einen Aus- 
weg aus dieser Misere gefun- 
den: Auf der NCC in Las 
Vegas unterzeichnete Qume- 
Präsident Roger Gower ei- 
nen Kooperationsvertrag mit 
der Geschäftsleitung der deut- 
schen Firma BDT in Rott- 
weil, die sich durch die Ent- 
wicklung hochwertiger Ein- 


zelblatteinzüge einen Namen 
gemacht hat. Danach wird 
Qume "”Sheet-Feeder” aus 
dem Schwarzwald beziehen 
oder in eigener Regie in 
Puerto Rico fertigen. 
"Warum sollen wir das Rad 
zweimalerfinden”, erläuterte 
Deutschland-Geschäftsführer 
Gerd Queisser diesen Schritt, 
"jetzt haben sich zwei Spe- 
zialisten zusammengetan, die 
sich nun beide voll ihren 
Aufgaben widmen können.” 
Ein großer Vorteil für alle 
Anwender: Durch die enge 
Kooperation schon bei der 
Entwicklung werden in Zu- 
kunft Sheet-Feeder gleich- 
zeitig mit der Einführung 
neuer Modelle zu haben 
sein. Die empfohlenen Ver- 
kaufspreise bewegen sich 
zwischen 945,- (LetterPro 20) 
und 1.875,- Mark (Doppel- 
schacht-Einzug für die 
Sprint-Serie). 
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Mit GEDATA maßgeschneiderte 


Programme zu Preisen von 
Standardsoftware 


Adreßverwaltung innerhalb von drei Stunden 


erstellt 


GEDATA schneller als dBase II 


Dem Ziel, ein zu lösendes 
Problem einfach in den 
Computer hineinzuschrei- 
ben, kommt erstmals das 
Programmiersystem GE- 
DATA nahe, das von dem 
deutschen Unternehmer Her- 
bert F. Gerdts GmbH & Co. 
entwickelt wurde. Mit Hilfe 
von GEDATA ist das Sy- 
stemhaus Fischer & Rösch 
Datentechnik in Wunstdorf 
bei Hannover dazu überge- 
gangen, seinen Kunden 
maßgeschneiderte Software 
anstelle von Standard- 
paketen zu verkaufen, ohne 
daß der Kunde mehr Geld zu 
bezahlen hat. GEDATA re- 
duziert für Software- und Sy- 
stemhäuser die Entwick- 
lungsarbeit auf einen Bruch- 
teil und stellt dem Anwender 
preiswerte und narrensi- 
chere Programme zur Verfü- 
gung, die genau auf seine 
Bedürfnisse zugeschnitten 
sind. 

Das Systemhaus Fischer & 
Rösch Datentechnik hatsich 
auf das Programmieren mit 
GEDATA spezialisiert. Auf- 
grund der in der Testphase 
mit GEDATA gewonnenen 
Erfahrung wird derzeit eine 
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EDV-Lösung für einen 
Weingroßhändler erarbeitet. 
Innerhalb von drei Stunden 
war die Adreßverwaltung 
programmiert. Sie besteht 
aus einer Adreß- und einer 
Anrededatei und istmiteiner 
Weinverwaltung kombiniert. 
In Verbindung mit dem Text- 


programm GETEXT kann 
der Weingroßhändler An- 
schreiben an seine Kunden 
auf dem Bildschirm zusam- 
menstellen. Durch die Ver- 
knüpfung von Dateien, Kun- 
den-, Anrededatei und Wein- 
beschreibung können Kun- 
den völlig individuell mit 
den für sie interessanten In- 
formationen versorgt werden. 
Eine Weinlager-Verwaltung 
mit Hilfevon GEDATA istin 
Bearbeitung. 

Die Systemberater Fischer 
und Rösch haben festgestellt, 
daß sie zum Preis einer vor- 
gefertigten Standardlösung 
mit Hilfevon GEDATA eben- 
sogut eine maßgeschnei- 
derte erarbeiten können. Der 
Weg führt über einen frei 
programmierbaren Masken- 
generator, der um wesent- 
liche Funktionen erweitert 
wurde. Damit werden zu- 


nächst Felder wie auf 
Karteikarten angelegt. Sie 
werden gefüllt mit Adressen, 
Artikeln, Lieferanten, Beschrei- 
bungen. In einem Schriftfeld 
daneben fragt GEDATA im- 
mer: Was soll mit dem In- 
halt des Feldes geschehen? 
Soll es alphabetisch sortiert 
werden, sollen an be- 
stimmten Stellen Angaben 
über andere Felder eingege- 
ben werden, wird verglichen, 
ausgedruckt oder sollen Er- 
gebnisse in ein anderes Feld 
übertragen werden? 

Danach zeigt GEDATA auf 
dem Schirm an, was gerade 
getan wird. Er erklärt sich in 
deutscher Sprache ständig 
selbst. Sowohl der Program- 
mierer als auch später der 
Anwender ist niemals ratlos, 
bleibt niemals hängen, auch, 
wenn er selbst programmiert. 
Sind die benötigten Felder 
gefüllt und die gewünschten 
Anweisungen gegeben, ar- 
beitet GEDATA mit sehr 
hoher Geschwindigkeit, die 
zum Beispiel die von dBase 
II um ein Mehrfaches über- 
trifft. Sonderprogramme, 
wie "Datei sichern” oder ”ge- 
sicherte Datei zurückholen”, 
ermöglichen eine einfache 
Vergabe von Zugriffsrech- 
ten. Jedes Feld kann als 
Normal-, Anfangs- oder Be- 
endigungsfeld definiert wer- 
den. Das schließt Fehlbedie- 
nungen aus und sorgt zum 
Beispiel dafür, daß der An- 
wender nicht mehr in 
Rechenfelder gelangen kann, 
die zum einmal fertigen Pro- 
grammablaufgehören. Soer- 
gibt sich ein einfacher und 
wirkungsvoller Schutz gegen 
ungewollte oder auch unbe- 
fugte Veränderungen im 
Programm. 

All diese Sicherungen muß 


der Programmierer nicht 
programmieren, sondern er 
kann sich ihrer bedienen. So 
entstehen narrensichere Pro- 
grammeinbisherunbekannt 
kurzer Zeit. Mit GEDATA ist 
es jedem Softwarehaus mög- 
lich, zu günstigen Preisen in- 
dividuelle Software zu erstel- 
len, ohne die Preiskonkur- 
renz von Standardsoftware 
fürchten zu müssen. Für den 
Anwender bedeutet das, daß 
er seinen Betrieb nicht der 
EDV anpassen muß, wie das 
beiStandardpaketen derFall 
ist. Er enthält eine Lösung, 
die seinem Betrieb angepaßt 
ist. Da der Kunde bei der Er- 
stellung seiner EDV-Lösung 
praktisch zusehen kann, ent- 
fällt ein Großteil der Be- 
treuungsarbeit für das Sy- 
stemhaus, da der Anwender 
auf Anhieb mit ”seiner” Lö- 
sung arbeiten kann. Ergän- 
zungen sind ohne großen 
Aufwand möglich, sodaß der 
Anwender Schritt für Schritt 
in die EDV hineinwachsen 
kann. 

Die Zeit der umfangreichen 
Standardsoftware-Pakete, die 
alles beherrschen, könnte 
sich ihrem Ende zuneigen. 
Wirklichen Nutzen für den 
EDV-Anwender erbringen 
preiswerte und sichere Pro- 
gramme, die jederzeit er- 
weitert und ausgebaut wer- 
den können und die genau 
das tun, was gebraucht wird. 
In GEDATA erstellte Pro- 
gramme lassen den Benutzer 
niemals hängen und ar- 
beiten außerdem schneller 
als bisher gekannte Pro- 
dukte.. GEDATA läuft auf 
den Z-80-Systemen und ist 
darüber hinaus für andere 
gängige Prozessoren erhält- 
lich. 


BIT 90 Vertrieb über Colecovision 


Auf der HiFi Video in Düs- 
seldorf war zu erfahren, daß 
der nunmehr auch in 
Deutschland erhältliche 
Heimcomputer BIT90 (CPU 
berichtete bereits mehrmals 
über dieses Gerät) künftig 
über das Vertriebsnetz der 
Firma CBS Colecovision an- 
geboten wird. 


Günter Bickmann, Ge- 
schäftsführer der Firma Vi- 
dis in Lingen/Ems, die die 
deutschen Importrechte für 
den Taiwanesen besitzt, ist 
zuversichtlich, daß durch 
diese Maßnahme eine opti- 
male Möglichkeit für den 
Absatz dieses Computers ge- 
schaffen wurde. 
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Neues von der NCC: 
Qume’s 90-Zeichen Drucker: 


Las Vegas/Düsseldorf - 
Neue Standards in Geschwin- 
digkeit und Zuverlässig- 
keit setzt der neue 90 Zeichen 
pro Sekunde schnelle Ty- 
penraddrucker, den die ITT- 
Tochter Qume auf der 
diesjährigen National Com- 
puter Conference (NCC) in 
Las Vegas erstmals der Of- 
fentlichkeit vorstellte. Das 
"jüngste” Mitglied der Sprint 
11-Familie errang gleich bei 
der Präsentation einen Welt- 
rekord: Der Sprint 11/90 
stellt einen neuen Geschwin- 
digkeitsrekord für Ty- 
penraddrucker auf. 

Als "revolutionäre Entwick- 
lung” wurde die zukunfts- 
trächtige Software-Steuerung 
gepriesen, die so hohe Ge- 
schwindigkeiten ohne über- 
mäßigen -Verschleiß, Lärm 
und Vibrationen erst ermög- 
licht. Diese Steuerung be- 
wegt das Typenrad in gleich- 
mäßiger Geschwindigkeit 
zwischen zwei Anschlägen 
des Druckhammers. Der in- 
tegrierte 500 Byte-Zeichen- 
puffer sorgt für einen "flüssi- 
gen” Arbeitsablauf. 


Die (fast) vollständige Elimi- 
nierung der ruckartigen Be- 
wegungen führt zu einer 
"mittleren Zeit zwischen 
dem Auftreten zweier Feh- 
ler” (MTBF) von 5.500 Stun- 
den - das entspricht einem 
durchschnittlichen Einsatz 
von drei Jahren ohne eine 
einzige Panne. In dieser Zeit 
hätte der Sprint 11/90 mehr 
als 200 Millionen Zeichen 
fehlerfrei gedruckt - doppelt 
soviel wie der "kleine Bru- 
der” Sprint 11/40. Zusam- 
men mit den Papierfüh- 
rungssystemen von Qume 
könnte der tatsächliche 
Durchsatz verdoppelt wer- 
den. 

Der neue Sprint 11/90 er- 
gänzt die beliebte Sprint 11 
Plus-Familie mit Druck- 
geschwindigkeiten von 40 
und 55 Zeichen pro Sekunde. 
Allen gemeinsam sind die 
austauschbaren Interface- 
Module, die den problemlo- 
sen Anschluß an alle gängi- 
gen Computersysteme ermög- 
lichen. 

Die Adapter ermöglichen es 
den Distributoren, mit einer 


Sinclair Research weitet 
Fertigungskapazitäten aus 


Bad Homburg/Cambridge, 
1. August 1984. Sinclair Re- 
search, Cambridge, plant eine 
drastische Erhöhungder Ferti- 
gungskapazität ihrer Produkte. 
Vom Homecomputer ZX- 
Spectrum sollen bis. Ende 
1984 mehr als 200.000 Ein- 
heiten im Monat hergestellt 
werden. Die monatliche Ferti- 
gung des neuen Sinclair Per- 
sonal Computers QL wird 
auf 50.000 Stück und die 
Fertigung des Taschenfern- 
sehgerätes auf monatlich 
20.000 Einheiten erhöht. 

Die Produktionsmengen 
wurden drastisch herauf- 
gesetzt, um die erwartete 
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Nachfrage, insbesondere 
nach dem ZX-Spectrum 
Computer in der Weihnachts- 
saison 1984, erfüllen zu 
können. 

In der Bundesrepublik 
Deutschland ist das Unter- 
nehmen mit der neu gegrün- 
deten Tochtergesellschaft, 
Sinclair Research Ltd., Branch 
Office Bad Homburg, ver- 
treten. 


ZX-Spectrum 

Für die Fertigung des ZX- 
Spectrum Computers hat 
Sinclair zwei neue Subunter- 
nehmer, die in Südwales an- 
sässige AB Electronics sowie 


Markt-Info 


Weltrekord für’s Typenrad 


geringen Druckerpalette ein 
breites Anwendungsspektrum 
abzudecken. Anwender kön- 
nen einen einzigen Drucker 
mit verschiedenen unter- 
schiedlichen Systemen ein- 
setzen und Computeranla- 
gen können beliebig erwei- 
tert werden, ohne den 
Zwang, auch einen neuen 
Drucker anschaffen zu 
müssen. 

Der Sprint 11/90 verwendet 
die gleichen ASCII-kompa- 
tiblen 96-Zeichen-Typenräder 


die koreanische Samsung 
Electronics, unter Vertrag ge- 
nommen. Beide Unterneh- 
men planen den Beginn der 
Auslieferung im September 
1984. Bei Timex, Dundee, 
Schottland, soll im vierten 
Quartal 1984 die Fertigung 
des ZX-Spectrum nahezu 
verdoppelt werden. 


Sinclair QL Computer 

Thorn EMI Datatech ar- 
beitet derzeit am Aufbau der 
Fertigungseinrichtungen für 
den Sinclair QL Personal 
Computer im Werk Feltham. 
Gespräche über die Schaf- 
fung einer zweiten Ferti- 


wie alle anderen Qume- 
Drucker. Mehr als hündert 
verschiedene Varianten sind 
zur Zeit lieferbar, darunter 
spezielle Zeichensätze für 
(fast) alle gängigen Sprachen 
und mathematisch/technische 
Sonderzeichen. 

Der Preis dieses neuen 
Druckers, der ab Herbst 
auch in Europa angeboten 
werden soll, liegt einschließ- 
lich Interface-Modul unter 
8.000,- DM. 


gungsstätte für den QL Com- 
puter sind inzwischen in ein 
fortgeschrittenes Stadium 
getreten. 


Taschenfernseher 

Die Fertigung des Sinclair 
Taschenfernsehers mit fla- 
chem Bildschirm im Werk 
Thorn Ferguson wird jetzter- 
heblich ausgeweitet. Im Rah- 
men der geplanten Pro- 
duktionserhöhung hat Sinc- 
lair zusätzlich die Firma 
Timex als zweites Ferti- 
gungswerk unter Vertrag ge- 
nommen. Die ersten von Ti- 
mex gefertigten Geräte wer- 
den derzeit ausgeliefert. 
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34 CPU 


Water-Way 


für den Atari 600/800 XL 


Als passionierter Computer- und Spiele- 
freak kennen Sie sicher ”Frogger”, 
das lustige Spiel um den kleinen 
Frosch, der sicher über eine stark 
frequentierte Fahrbahn zu seinen 
Laich- und Weidegründen geleitet wer- 
den soll. 

Ähnliches bietet Ihnen der ”Wasser- 
weg” des vorliegendes Programmes für 
den Atari-Homecomputer: Auf dem 
breiten Fluß, der querschirmein ver- 
läuft, bringen Holzfäller die Frucht ih- 
rer Arbeit zum nächsten Sägewerk. Be- 
schäftigt, wie sie sind, haben die eifri- 
gen Flößer natürlich kein Auge für 
unseren kleinen Frosch, der den Fluß 
unbedingt überqueren will. Da kom- 
men Sie als routinierter Atari-Kom- 
mandant gerade recht. Haben Sie ein 
Herz! Erbarmen Sie sich des armen 
Kerls, damit er unbeschadet sein Ziel 
erreichen kann. 

Hinweis: Unser neuer TIPTAB-Service 
auch für dieses Atari-Spiel! 
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Due, cc3 1984 BY STEFAN FUNK 
RöÖBEN 6 6458 HANSU 9 
12 7] 

1 DIM 55(8),5Z(83,5R(c8) 
2 DATA 3,3,5,5,7,7,9,9 
3 RESTORE 2:FOR I=1 TO 8:READ Z:5SZCII= 
Z:NEXT I 

18 GRAPHICS 18:POKE 712,14 


aM MALDGI 
TEL.:86181-5712 


„11 SETCOLOR 8,3,6:SETCOLOR 1,8,6, 


12 POSITION 5,4:? 3B6;'"water-way" 

13 POSITION 1, ? 26;"cC> BY STEFAN FU 
NK" 

28 GOSUB Z80808 

22 PZ=8:AN=S:DIF=108 

38 GRAPHICS 18:POKE 756,CH/256 

48 SETCOLOR 1,8,6:5ETCOLOR 4,12,8:5ETC 
OLOR 2,15,4:5ETCOLOR 8,8,2:SETCOLOR 3, 
1,6 

41 DIF=DIF-S:IF DIF(8 THEN DIF=@ 

58 COLOR 1:FOR I=8 TO 11:PLOT 8,I:DRAH 
TO 19,I:NEHT I 

59 COLOR ®8:PLOT 8,8:DRANTO 19,8:POSITI 


Von 1,0:? B6;PZ:POSITION 16,8:? B6;"& " 


zAn 

68 COLOR 2:PLOT 8,1:DRAHTO 19,1:PLOT ® 
‚21:DRAHTO 19,11 

66 COLOR 163 


70 FOR I=-1 TO 8 STEP 2 


88 SSCI2=ZINTCSERND (CO) +23 
98 SSCI+1I=55CII+7 
188 ZU=ZINTCI®=RND(BI)-1:IF ZU=® THEN 18 
oe 
4118 SRCII=ZU:SREI+1>=ZU 
128 FOR II=®8 TO 1:PLOT SSCI+III,SZCI+I 
II:PLOT SSCI+III+SRCI+III, SZCI+II> 
138 PLOT SSCI+III+SRCI+III+SRECIFIII ,SZ 
<I+III: NEXT II 
NEXT I 
ZU=Z19#RND (8) : COLOR 133:PLOT ZU,1 
ZUZ19#RND (8) : COLOR 4:PLOT ZU,18 
4=Zu: Y=1@ 
ZU=ZINTCS®=RND(CO)3:IF ZU=2 THEN zu=1 
9HRND (8) :COLOR 11:PLOT ZU,6 
388 REM 
318 REM 
328 REM 
338 v=ı8 
332 FOR R=1 TO S 
333 FOR I=@ TO 15:50UND 8,I#I,18,I:NEH 
rı 
334 NEXT R:SOUND 8,8,8,8 
FOR SP=1 TO 8:PZ=PZ+1:GOSUB 159088 
ST=ZSTICK (83 :AH zsay=Y 
IF ST=7 THEN H=H+1:IF #>19 THEN H= 


IF ST=11 THEN #=X-1:IF #(® THEN X= 


GOSUB 28888 
LOCATE #,Y,Z:IF Z=163 THEN 19088 
IF z=11 THEN GOSUB 25888:60SuB 158@ 


COLOR 1:PLOT AX,AY 

COLOR 4:PLOT K.Y 

NEXT SP:COLOR 1:PLOT K,Y 

Y=Y-1:IF Y=1 THEN 5888 

LOCATE 4,Y,Z:IF Z=163 THEN 18888 
IF z=11 THEN GOSUB 25888:605SUB 158 


COLOR 4:PLOT X,Y 
FOR I=1 TO DIF:NEXT I 
60To 348 

S888 REM 

5818 REM 

5819 REM 
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se28 FOR I=-@ TO 3:50OUND I,8,8,@:NEHT I 
5821 LOCATE H,Y,Z:IF Z<(>133 THEN 108068 


5922 COLOR 134:PLOT X,Y 

5838 FOR I=-188 TO 588 STEP 5@:FOR II=I 
TO I+5® STEP 5 

5848 SOUND ®,II,18,18:S5OUND 8,18,1@,II 
NEXT II:NEXT I 

5858 SOUND 8,0,8,0:50UND 1,8,8,8 

5866 PZZ=(188-DIFI#18:PZ=PZ+PZZ 

5878 G0To ze 

18808 REM 

18018 REM 

18828 REM 

18622 COLOR 1:PLOT AX,aY 

18838 FOR I=7 TO 18:COLOR I:PLOT X,Y 

18848 FOR 5-2808 TO 188*I STEP -I=2 

18858 SOUND 8,5,18,18:50UND 1,5,8,8:50 

UND 2,5,18,5:50UND 3,5,8,5 

188686 NEXT S:NEHT I:COLOR 1:PLOT X,Y 

18878 FOR I=® TO Z:S50UND I,®,8,@:NEXT 

ı 

18877 PZ=PZ-1S:IF PZ<® THEN Pz=e 

18880 AN-AN-1L:IF AN{@ THEN 28088 

18898 FOR I=1 TO S@8:NEXT I 

18108 DIF=DIF+S:60T0 38 

158088 REM 

15818 REM DITTSISZZ-TIZ.TT8 

15828 REM 

15830 POSITION 1,8:? 86;PZ:SOUND 8,108 

‚18,5P:5OUND 1,158,18,5P:5OUND 2,208,1 

8,5P:5OUND 3,2580,18,5P 

15848 RETURN 

20888 REM 

28818 REM 

26028 REM 

20838 POSITION 5,1:? B6;""GAME OVER" 

28648 POSITION 3,11:? 86;"'BY STEFAN FU 

nKe 

28844 POSITION 4,6:? N6;"press start" 

28856 FOR I-188 TO 1888 STEP 15:50UND 

8,1,18,1@:SOUND 1,1,5,5 

20868 IF PEEK(S32793-=6 THEN 2e888 

28878 NEXT I:60T0O 28058 

28688 SOUND @,80,8,8:50UND 1,80,8,8 

208898 G0TO 22 

250088 REM 

25018 REM 

25028 REM 

25030 FOR I=488 TO 588 STEP 5:50UND ®, 

I,18,18:SOUXP 1,I,8,8:NEHT I:SOUND 8,8 

»8,0:50UND 1,8,8,8 

25848 PZ=PZ+1088 

25058 RETURN 

28008 REM 

286018 REM 

28828 REM 

28838 SSCSPI=SSCSPI-SRESPI 

28048 IF 55C5P3<@ THEN COLOR 1:PLOT Ss 

C5P3+1,5ZC5P) :DRANTO 5515PI+4,5ZC5P2:5 

StSPI=17:60T0 29888 

28858 IF S5(SP3>19 THEN COLOR 1:PLOT 5 

SCSPI-1,5ZC5P2 :DRANTO S5CSPI-4,5Z15P} 

55(5P)=2:60T0 29888 

28868 COLOR 163:PLOT 55(5P) ,SZcsp3 

28878 COLOR 1:PLOF SSCSPI+SRESPI+SRESP 

I+SRCSPI ,SZC5P3 

28888 RETURN 

29008 REM 

el BE ES ES TOHMM KLEINER 9 / GROESSER 1] 

[2] 

298028 REM 
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29838 COLOR 163:PLOT S5C5PI.,5ZC5P?:PLO 
T SSLSPI+SRCSPI ,5SZC5PI :PLOT 55C5PI+5SRC 
SP3+S5RCSPI ,5ZC15P? 

29848 RETURN 

38888 REM 

38818 REM 

38828 REM 

38838 CH=CPEEK (186) -83%*#256 

38848 FOR A=8 TO 1823:B=PEEK(S7ZI44+M) : 
POKE CH+A,B:SOUND 8,9,14,2:50UND 1,A,1 
2,2:NEHT A 

38841 SOUND 8,8,8,8:50UND 1,90,8,8 
38858 RESTORE 38888 

38868 READ A:IF A=-1 THEN RETURN 

38878 FOR I= TO 7:READ B:POKE CH+ARS+ 
I,B:NEHT I:60T0 38868 

30888 DATA 1,255,255,255,255,255,255,2 
55,255 2 

380898 DATA 2,25,32,85,170,21,154,64,6 
381808 DATA 3,255,255,207,255,243,255,1 
99,255 

Z811® DATA 4,231,231,66,129,129,129,12 
9,66 

38128 DATA 5,255,189,101,238,102,66,19 
5,129 

38138 DATA 6,24,24,189,126,126,126,126 
‚189 

38148 DATA 7,255,231,219,189,189,219,2 
31,255 

30158 DATA 8,68,219,219,231,231,219,21 
9,68 

38168 DATA 9,255,189,231,195,195, 231,1 
89,255 

38178 DATA 18,255,255,255,231,231,255, 
255,255 

38188 DATA 11,231,231,66,129,129,129,1 
29,66 

32888 DATA -1 


TIPTAB= WATERWAY 


Zeilen/Block:5 
\ 18:189828 
ı11- 22: S418 
38- 59: 8081 
6e- 5225 
188- 18145 
158- 3808: 78015 
318- ZII: 4272 
334- 355: 7159 
368- 164: 4251 
366- 3880: 5I52 
398- 5819: 4781 
se20- 5848: 7372 
58858-188180: 4989 
18828-188580: 6888 
18868-180898: 5685 
18108-158380: 9185 
15848-288358: 3588 
28848-200878: 7689 
28888-258028: 4187 
25838-280818: 9597 
28828-28068:12024 
280978-29828:18144 
29838-108828: 7436 
38839-318868: 7629 
38878-380118:11851 
38128-38168:11663 
38178-320088: 52I8@ 
TOTAL :283164 
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Galaxians 
für den Atari 600/800 XL 


Galaxians ist eine gelungene und schön aufgebaute 
Version des Reaktionspieles vom Typ Space Inva- 
ders. Eine Flotte mysteriöser Flugkörper bedroht die 
Erde - Sie als Kommandant einer Abwehrbasis müs- 
sen versuchen, die Eindringlinge zu vernichten... 
Das Spiel erklärt sich weitestgehend von selbst und 
ist dank klarer, gut konzipierter Graphik sehr über- 
sichtlich angelegt. 

Viel Spaß wünschen wir Ihnen - und Hals und Bein- 
bruch für den riskanten Verteidigungsauftrag. 
Hinweis: Beachten Sie unseren TIPTAB-Service am 
Rande des Listings! 


® REM LISTING ERSTELLT VON STEFAN FUNK 
‚AM WMALDGRABEN 656458 HANAU 9;TEL.:KLO6 
1813571227 
REM RANKRHNMHEREHER 
REM #* »* 
REM # GALAHIANS = 
REM ®* * 
REM KRANKEN 
REM * FUER * 
REM * ATARI * 
REM KRANKER 
DIM ASCI®3,AZCI0) 
GRAPHICS 17 
6GO5SUB 38888 
GOTO 159088 
GRAPHICS 17 
POKE 756,CH/256 
SETCOLOR 8,8,8 
COLOR 95:FOR I=8 TO 19:FOR II=-®8 To 
23:PLOT I,II:NEXT II:NEXT I 
27 SETCOLOR 8,12,6:5ETCOLOR 1,8,8:SETC 
OLOR 2,3,6 
38 FOR I=-5088 TO 8 STEP -28:50UND ®,£, 
18,18:NEXT I:SOUND 8,0,0,8 
48 COLOR 9:PLOT ®8,2:DRAWHTO 19,2 
58 COLOR 168:PLOT 8,23:DRAWNTO 19,23 
68 COLOR 42:FOR I=18 TO 28:PLOT ®8,I:DR 
AUTO 19,I:NEHT I 
78 COLOR 1:PLOT 18,22:42=-10:Y=-22:5=86:pz 
=8 
88 COLOR 163:AN=8:6A=-8 
98 FOR I=5 TO 15 STEP 2Z:PLOT I,5:AN=AN 
+LEASCAMW-I:AZCANI-S:NEHT I 
188 FOR I=4 TO 16 STEP 2:PLOT I,7:ANzA 
N+L:ASCANI-I:AZLANI=-TFT:NEHT I 
118 FOR I=3 TO 17 STEP 2:PLOT I,9:AN=A 
N+1LI:ASCANIZI:AZLANI-I:NEHT I 
128 FOR I=2 TO 18 STEP 2:PLOT I,11:AN= 
AN+LI:ASCANIZI:AZCAMIZI1:NERT I 
ı13@ FOR I=1ı TO S588:NEXT I 
148 FOR S5SPp=1 TO 5:FOR I=8 TO 15:50UND 
8,208,18,1:50UND 1,4880,18,I:NEHT I:NEH 
Tr sp 
158 SOUND 8,8,8,8:50OUND 1,80,8,8 
168 FOR I=1 TO 2886:NEXT I 
178 REM 
188 REM BIT 
198 REM 


36 CPU 


1 
2 
3 
4 
s 
6 
7 
3 
> 
1 
2 


288 FOR uu=1 TO 4 

281 ST=ZSTICK(CeI :IF ST=7 OR ST=11 THEN 
COLOR ®8:PLOT K,Y 

218 IF ST=7 THEN #=X4+1:IF #>19 THEN = 
19 

228 IF ST=11 THEN X=X-1:IF #(8 THEN K= 
oe 

238 LOCATE #,Y,Z:IF Z()>164 AND Z(>165 
THEN 6G0TO 235 

231 GAZB:ANZAN-L:IF AN<1 THEN GOTO 2808 
LI: 
232 
235 
248 
258 
268 
266 


6GOTO 188868 

REM 

COLOR 1:PLOT #,Y 

IF 5-1 THEN 6GO5SU8 3888:6C0T0 266 
IF STRIGC67?-8 THEN 6GOSUB 28088 
NEXT uu 

278 IF GA=Z1 THEN GOTO 298 

288 ZU=ZINTCSOHRNDC1II+1:LOCATE ASCZU, 
AZCZUI ,AC:IF AC<>163 THEN GOTO 298 
285 GOSUB 97888 

298 IF GAZ1 THEN 6GOSUB 95808 

388 6G0TO 288 

2888 REM 
2818 REM 
2828 REM 
2838 FOR I=288 TO 348 STEP 18:50UND ®, 
I,18,18:NEXT I:50OUND 8,8,0,8:5=1:ZE=Y- 
1:5PZ# 

2848 COLOR 2:PLOT SP,ZE 

2858 RETURN 

3888 REM 

3818 REM 

3828 REM 

3838 COLOR ®8:PLOT SP,ZE:ZE=ZE-1:IF ZE( 
3 THEN 5=®6:RETURN 

3848 LOCATE SP,ZE,Z 

3858 IF Z=163 THEN GOSUB 4888: RETURN 
3868 IF ZZ164 OR Z=165 OR Z=171 THEN 6 
05uB 5888: RETURN 

3098 IF Z=42 THEN GOSUB 8888:RETURN 
3188 COLOR 2:PLOT SP,ZE 

3118 RETURN 

4888 REM 
4818 REM 
4828 REM 
4822 COLOR 176:PLOT SP,ZE 
49323 FOR u=1 TO 2 


TREFFER GöLSKISN IN BLOCK 
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4824 FOR I=14 TO 8 STEP 
‚I,I:NEHXHT I 

4825 NEHT U 

4838 5S=@:AN=AN-1:IF AN<1 THEN G0OTO 288 
oe 

4833 PZ=PZ+25:C0OLOR 179:PLOT SP,ZE 
4848 FOR I-588 TO 486 STEP -15:50UND @ 
‚1I,18,18:50OUND 1,I1,8,8:50UND 2,1,6,6:5 
OUND 3,1,4,4:NEHT I 

4858 FOR I=8 TO 3:S5SOUND I,®,8,8:NEHT I 


-1:S5SOUND 8,158 


4868 COLOR 8:PLOT SP,ZE:FOR I=15 TO 12 
STEP -8.5:5SOUND 8,188,18,I:NEXT I:S5ou 
ND 8,0,8,8 

4878 RETURN 

5888 REM 

ELEND ETREFFER © GALAXY TAN IN FLuc! 
5828 REM 

5830 S=@:AN=ZAN-L:IF AN(1 THEN GOTO 208 
eo 
5831 
5033 
‚8,1 
0,0 
5948 
5944 
5858 
18,1 
‚„It2 
5855 
5868 


GA=8 
FOR I=14 TO 8 STEP -1:50UND 8,158 
SOUND 1,158,I1,8:NEHT I:5SOUND 1,8, 


PZ=PZ+58:COLOR 188:PLOT SP,ZE 

FOR u=1 TO 2 

FOR I=2 TO 18 STEP 2:50UND 8,288, 
SOUND 1,288,18,I-2:50OUND 2,2808,18 
NEXT I 

NEXT U 

FOR I=8 TO 2:SOUND I,®8,8,8:NEXT I 


se78 
5088 
8088 
8018 
8028 
8038 
8848 PZ=PZ+5:COLOR 49:PLOT SP,ZE 

8858 FOR I=3 TO 5:FOR II=8 TO 12 STEP 
2:5SOUND 8,2608,II,I:SOUND 1,388,11,1:50 
UND 2,488,II,I 

8068 SOUND 3,588,II,I:NEXT II:NEHT I:F 
OR I=@ TO Z:SOUND I,8,8,8:NEXT I 

8078 COLOR 8:PLOT SP,ZE 

8056 RETURN 

9888 REM 

9018 REM DIET TETETZEISTTTET 

9828 REM 

9822 COLOR 171:65=A5 CZ :GZ=AZ (ZW) :PLO 
T 65,6Z:6A4=1:PAT=164:FOR I=® TO 18 STE 
P 2:SOUND 8,308,18,I 

9823 NEXT I:SOUND 8,8,8,8 

9838 FOR I=@ TO 15:SOUND 8,388,18,1:50 
UND 1,408,16,I:NEXT I:SOUND 8,8,8,80:50 
UND 1,8,8,8 

9848 GAS=ASCZW :GAZ=ZAZ ZU 

9856 ZU-ZINTCIERND(1))I+1:0M ZU GOTO 986 
8.9070, 9888 

9868 RS=@8:RZ=1:60T0 9898 

9878 RS=-1:RZ=1:60T0 9898 

9888 RS=1:RZ=1 

9698 GG=8:RETURN 

9588 REM 

9518 REM 

9528 REM 

9538 FOR I=158 TO 388 STEP 58:50UND ®, 
I,18,.18:SOUND 1,I1,4,4:NEHT I 


COLOR 8:PLOT 5P,ZE 
RETURN 

REM 
REM SCHIR 


TREFFER SCHUTZ 
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9548 COLOR GE:PLOT €5,6Z 
9558 6S5=6S5+RS:6Z=-EZ+RZ 
9568 IF GZ)’22 THEN CA 
GAS,GAZ:RETURN 

9578 IF G5<(® THEN 65=1 
9588 IF 65>19 THEN 6G5=8 
9598 LOCATE 65,6Z,66 
9591 IF 6G6=2 THEN GA=8:60T0 5888 

9592 IF 66=42 THEN GA=8:605UB 9988: RET 
URN 

9688 COLOR PAT:PLOT 65,6Z:IF PAT=164 T 
HEN PAT=165:60T0 9628 

9618 PAT=164 

9628 RETURN 

9988 REM . 

BEFUND ECAL AH TAN AUF SCHUTZSCHIRM 
9928 REM 

9938 COLOR 15:PLOT 6S,6EZ:FOR I=8 TO 8: 
SOUND 8,158,I1,8:SOUND 1,15@,8,I:NEXT I 
:SOUND 8,0,8,8:50OUND 1,8,8,8. 

9948 COLOR 8:PLOT 65,6Z 

9958 AN-AN-1:IF AN<1 THEN GOTO 28888 
9968 RETURN 

18688 REM 

18818 REM 

18828 REM 

18836 FOR I=® 

I 

18848 COLOR i5:PLOT #,Y:GA=@: ANZAN-i1 

18858 FOR u=1 TO 3:FOR I=® TO 14:50UND 
8,2808,1,18:50UND 1,488,1,18:50UND 2,2 

88,1,5:SOUND 3,488,1,5:NEXT I 

18868 NEXT U:FOR I=@ TO Z3:SOUND I,®,86, 
:NEHT I:COLOR ®@:PLOT X,Y 

18118 FOR I=1 TO 6:COLOR 1:PLOT X,Y:FO 

R II=1 TO 28:NEHT II:COLOR ®8:PLOT 4,Y: 

FOR II=1 TO 28:NEHT II:NEXT I 

18128 FOR I=288 TO 558 STEP 25:5SOuUND @ 
‚I,18,18:SOUND 1,1,6,6:50UND 2,I1,4,4:5 

OUND 3,1,2,2:NEXT I 

18138 FOR I=® TO Z:S5OUND I,8,8,8:NEXT 

I 

18148 

18158 

15088 

15818 

159028 

15838 


COLOR 163:PLOT 


TO 3Z:S5OUND I,8,8,8:NEXT 


FOR I=-1 TO 188:NEHXHT I 
6GOoTo 15888 

REM 

REM GIS 
REM 
GRAPHICS 
15833 SETCOLOR 8,3,4 

15848 IF PZ>HI THEN HI=PZ:FOR I=1 TO ı 
5888 STEP 288:50UND 8,1,160,15-I/1888:N 
EXT I 

15844 FOR I=8 TO 3:S5OUND I,8,8,8:NEXT 
ı 
15858 


17:POKE 756,224 


H=Z2:HH=Z7:HHH=Z12:HHHH=Z17:HHHHH=22 


15868 
159878 


POSITION 
POSITION 


4,84:? 86  BIENTFTTE" 
4,#4:7? 26; "BRIITSEEER;PZ 


158088 
ı 
15888 
re 
15889 
| FUNK 
15898 FOR U=1 TO Z8:NEXT U 

15188 GRAPHICS 17:POKE 756,224:5ETCOLO 
R 0,3,4 


POSITION 


4,#HH:? 226; GET: ; 


POSITION 4,#HHH:? 236; "DITEENSTAR 


POSITION 4,#HHHH:? 26; (CHEERII-T) 


CPU 37 


 ATARI 


15118 
15128 
15138 
15133 
23 
15134 
HAH=2Z 
15148 IF PEEK(S3279)<)>6 THEN 6G0TO 1586 
eo 

15144 FOR I=208 TO 388 STEP 16:50UND ® 
‚I,18,18:NEHT I:SOUND 8,0,8,8 

15158 GoOTO 22 

28888 REM 

280810 REM 

28828 REM 

20838 FOR I=568 TO 5888 STEP 25:50UND 


#=H-1:IF #<(® THEN #=23 
HKHZHKH-1:IF HN(e THEN HH=23 
HHHZHHH-1:IF HEN(O THEN HHH=2Z 
AHHHZHHHH-1:IF HHHH(E THEN HHHN= 


AHHHHZKHHHH-L:IF HHHHH(O THEN HH 


8,1,18,18:50OUND 1,I1,5,5:NEXT I:SOuNnD @ 
»8,8,8:50UND 1,80,0,8 

20848 GRAPHICS 17:POKE 756,CH/256:SETC 
OLOR 8,5,8:SETCOLOR 1,1,6:SETCOLOR 2,8 
6 

» 

28844 COLOR 169:PLOT ®8,23:DRANTO 19,23 


2080858 K=18:Y=22:CO0LOR 1:PLOT X,Y 

20868 ZU=ZINTC2=RNDC13I+1:0N ZU GOTO 28 

070,200888 

280878 R=1:P=8:60T0 2988098 

208888 R=-1:P=19 

28898 COLOR Z39:PLOT P,8:5=@ 

28188 REM 

20118 REM 

20128 REM 

28138 FOR SP=1 TO 8:S5ST=STICK(ceI:IF ST= 
5T=7 THEN COLOR 8:PLOT X,Y 
IF 5ST=7 THEN #=4+1:IF #>19 THEN 
IF 5ST=z11 THEN #=X8-1:IF #(® THEN 

COLOR 1:PLOT X,Y 

IF 5=1 THEN GOSUB 21808 

IF 5=8 AND STRIG(8)=8 THEN GOSUB 


260182 NEXT SP:COLOR ®@:PLOT P,® 
28198 P=P+R:IF P<® OR P>19 THEN FOR I= 
388 TO 288 STEP -5:S5OUND 8,I1,18,18:NEX 
T I:G60TO 15888 
20288 COLOR 39:PLOT P,8:60T0 28138 
218088 REM 
21818 REM 
21828 REM 
21838 COLOR ®8:PLOT S5,ZZ:ZZ=ZZ-1ı:IF zz 
<8 THEN S=8:RETURN 
21033 LOCATE 55,ZZ,CC:IF CC=39 THEN PO 
P :G0TO 23088 

SOUND 8,2808,18,18:C0LOR 6:PLOT S 


SOUND 8,8,80,8 
RETURN 
REM 
Li Schuss IN SPIEL 2] 
REM 
S=Z1:FOR H=@ TO 15:SOUND @,H,4,15 
-H:NEHXT H:SOUND 8,8,0,8 
22648 SS=K:ZZ=Y-1:COLOR 6:PLOT S5,ZZ 
22858 RETURN 
23868 REM 
2301@ REM 
238028 REM 


38 CPU 


23822 COLOR 21:PLOT 55, ZZ:ıPZ=PZ+75 
23838 5=@:FOR I=8 TO 14:50UND @,208,I, 
I:SOUND 1,488,I,I:NEXT I:S5OUND 8,80,0,8 
:5OUND 1,0,8,8 

23848 R=-R:COLOR Z9:PLOT 55,ZZ 

23858 E0TO 28138 

38888 REM 

386818 REM 

38828 REM 

30838 CH=(PEEK (106) -8) #256 

38648 READ A:IF A=-1 THEN RETURN 

30858 FOR I=® TO 7:READ B:POKE CH+Ax8+ 
I,B:NEXT I:G0OTO 30848 

38868 DATA 1,24,68,24,98,255,165,255,6 
& 
ze8780 
30088 
38898 
ze188 
38118 
38128 
3e138 
380148 
30158 
38168 
9 
30288 
30228 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


2,0,8,0,0,24,8,24,8 
3,129,66,66,36,68,24,80,8 
4,129,129,66,36,24,24,0,8 
5,0,8,66,165,155,24,80,8 
6,8,0,80,24,24,8,0,8 
7,8,24,608,231,231,680,24,8 
8,153,255,8,255,80,0,8,8 
9,126,80,126,0,80,8,0,8 
18,80,0,195,68,680,195,98,8 
11,129,66,36,24,24,36,66,12 


DATA 
DATA 


15,0,4,227,32,4@8,195,10,2 
16,129,129,82,12,56,18,64,4 


38238 
38258@ 


DATA 
DATA 


17,0,80,56,32,56,8,56,8 

19 »8,238,48,238,1380,238,80 
30268 DATA 20,8,8,2378,138,234,42,238,8 
30278 
32888 


DATA 
DATA 


21,0,8,238,40,46,34,46,8 
u 


TIPTAB: GALAXIANS 
Zeilen/Block:1® 
e- 9:12585 
18- 48: 7770 
5s8- 148:238017 
1560- 2380:13519 
231- 285: 7788 
298- I818:13678 
38208- 4818:158052 
4828- 4868:16252 
4878- 5858:181597 
5s855- 89858:13948 
8068- ?848:17828 
9858- 9548:14918 
9558- 9628:11788 
9988-18828:15387 
188380-15888:19337 
15818-15888:19312 
15888-15148:1733I8 
15144-28868:16856 
28878-286168:155976 
28178-21833:16627 
21848-230088@:12245 
23810-18838:18918 
38848-38138:17484 
38148-32008:16476 
TOTAL:372982 
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TIPTAB für den Atari 


Was ist TIPTAB? 


TIPTAB ist ein Hilfsprogramm und 
soll die Fehlersuche (falls nötig) in ei- 
nem aus CPU oder HOMECOM- 
PUTER abgetippten Atari-Basic-Pro- 
gramm erleichtern. 

TIPTAB muß erst einmal fehlerfrei ein- 
gegeben werden und dann mit LIST- 
"D:TIPTAB” auf Diskette oder mit 
LIST”C:” auf Cassette abgespeichert 
werden (für Cassettenbenutzer emp- 


Wie arbeitet man mit TIPTAB? 


1. Tippen Sie das von Ihnen auser- 
wählte Programm wie gewohnt in 
Ihren Atari. 

. Bevor das Programm gestartet wird. 
speichern Sie es auf Diskette oder 
Cassette ab. 

. Nun kann das Programm gestarteı 
werden. Läuft es einwandfrei, so 


brauchen die nächsten Schritte nicht ' 


ausgeführt werden (Aber wer will, der 


ATARI 


Geben Sie "NEW” ein (enthält das zu 
überprüfende Programm Maschi- 
nencode oder POKESs, dann ist ein 
"RESET” angebrachter). 

. Laden Sie das Programm wieder. 

. Laden Sie nun TIPTAB mit"”ENTER 
”D:TIPTAB” oder "”ENTER”C:” zu 
dem zu überprüfenden Programm- 

. Geben Sie nun ”"GOTO 32700” (ohne 
Zeilennummer!) ein. Es meldet sich 
nun TIPTAB. 


fiehlt es sich, TIPTAB auf einer extra darf) 
Cassette zu speichern). 4. Programm läuft nicht, also: 


327088 ? :? "Kicks' TIPTAB":TRAP 327802: 
DIM TTBOUTS<S5), TTBTMPS (53 

32781 TRAP 48088 5 

32782 CLOSE 32:7? "Ausgabe: Bicreen Uri 
nter ?";:OPEN 32,4,8,'‘'K:"":GET B2,TTBDE 
V:CLOSE 82:7? CHRSCTTBDEU) 

32764 IF TTBDEU=83 THEN TRAP 32736:0PE 
N 32,8,8,"E:'":60T0 32712 

32786 IF TTBDEV=88 THEN TRAP 32736:0PE 
N 22,8,8,''P:"':G0T0 32712 

32718 GOTO 32782 

32712 TRAP 32712:? "Zeilen/Block"; :INP 
UT TTBZBL:IF TTBZBL<(1 OR TTBZBL>28 THE 
n 32712 

32714 TRAP 48688: PRINT B2;"Zeilen/Bloc 
K:";TTBZBL 

32716 LINADR=PEEK (1363 +256#PEEK (13723 :T 
oTaL=®e 

32718 CHKSUM=8:FOR LINCNT=1 TO TTBZBL 

32720 NHTLIN=PEEK (LINADRI +256#PEEK {LIN 
ADR+13 :LINOFS=-PEEKCLINADR+2I:IF NATLIN 
=327808 THEN 32728 

32722 CURLIN=ZNXTLIN:IF LINCNT=1 THEN G 
0OSUB 32738 

32724 FOR BYTPTR=LINADR TO LINADPR+LINO 
FS:CHKSUM=CHKSUM+PEEK (BYTPTR) : TOTAL=TO 
TAL+PEEK(CBYTPTRI :NEHT BYTPTR 

32726 LINADR=LINADR+LINOFS:NEHT LINCNT 


32728 IF CHKSUM=8 AND NXTLIN=32788 THE 
N 32734 

32738 IF LINCNT?>Z THEN PRINT 82;"-";:6G 
o5suB 32738 

32732 PRINT 32;":"; :CURLIN=CHKSUM:GOSU 
8 32738:PRINT 82:IF NHYTLIN<S28086@ THEN 
32718 

32734 PRINT 832;'"TOTAL:"; TOTAL:CLOSE 82 
:5SToP 

32736 ? :? “GEDLIE ";PEEKC19S5):TRAP 488 
88:GOTO 327808 

32738 TTBOUT$S=" *": TTBTMPS-STRSCCUR 
LIN: TTBOUTSC6-LENECTTBTMPSI2-TTBTMPS:P 
RINT 32; TTBOUTS; :RETURN 
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. Geben Sie das gewünschte Ausgabe- 
gerät an: P für Drucker, S für 
Bildschirm. 

. Auf’ die Frage Zeilen/Block geben Sie 
den Wertein, derin der Tabelle des zu 
überprüfenden Programmes steht. 
Daraufhin beginnt TIPTAB folgendes 
auszugeben: ER 
(von) - (bis) : (Prüfsumme) 


Total: ... 

Vergleichen Sie die einzelnen Prüf- 
summen mit denen in der Zeitung. 
Gibt es eine Differenz, so geben die 
ersten zwei Zahlen den Zeilen- 
bereich, in dem der Tippfehler zu 
suchen ist, an. 

10. Beseitigen Sie den Tippfehler und 
wiederholen Sie die Schritte 7-10 so 
lange, bis keine Differenzen mehr 
auftreten. 


Was TIPTAB nicht kann: 


Da TIPTAB einfach den Inhalt derein- 
zelnen Bytes, aus denen eine Basic- 
Zeile besteht, zu einer Prüfsumme auf- 
addiert, kann es folgendes nicht 
erkennen: 

- logische Fehler 

- Vertauschungen (z.B.: 10A=(B+C)D 
ist für TIPTAB-das gleiche wie 
10A=(B+C/D) 

- Gibt man ”?” für ”PRINT” ein, so 
stimmt die Prüfsumme nicht. 

- Da TIPTAB zusammen mit dem zu 
überprüfenden Programm im Speicher 
steht und die Zeilennummern ab 32700 
belegt, kann es keine Programme über- 
prüfen, die ebenfalls in diesem Zeilen- 
bereich liegen. 
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Circus 


für den Atari 600/800 XL 


Hier haben Sie ein fast schon klassisches Manegenspiel 
vor sich: In der Zeltkuppel hängen rote und blaue Luftbal- 
lons. Darunter befindet sich eine Schaukel, mit deren 
Hilfe sich zwei Clowns gegenseitig in die Höhe schleudern 
können. Dabei können sie auf Podesten ”Zwischen- 
station” machen, die in halber Bildschirmhöhe links und 
rechts angebracht sind. 

Ihre Aufgabe ist es nun, den Flug der beiden Akrobaten so 
zu steuern, daß sämtliche Luftballons getroffen und damit 
zum Platzen gebracht werden können. 

Viel Spaß dabei! 


Hinweis: 

Bevor Sie das Programm laufen lassen, machen Sie bitte 
von unserem TIP-TAB-Service Gebrauch: Das Steuer- 
programm finden Sie in diesem Heft auf Seite 


CIRCUS 


9 DIM Z5c13,4C23,Y(12) 

18 GRAPHICS 18:POKE 708,258:POKE 789,5 

4:POKE 718,198:POKE 711,134:POKE 712,1 

4 

11 RESTORE 12 

12 DATA 227,185,2108,227,117,211 

13 FOR I=4 TO 15 STEP 2:READ II:COLOR 

II:PLOT I,S:NEHT I 

28 POSITION 8,10:? #: "1984 BY STEFAN 

FUNK" 

38 GOoSuB TI0888 

48 GRAPHICS 17:POKE 756,CH/256 

41 POKE 77,8:PZ=8:WM=38168:WL=30188: HR 

=30288 : MEN=3S: WW=ZHM 

48 GOSuUßB 250868 

49 SETCOLOR 2,8,6 

58 REM 

6e REM BEREITEN 

78 REM 

71 WH=I:WYZSZLIRCII=SB:HCZI=-10:YC1I=28 
<2)=2e 

72 COLOR 164:FOR I=1 TO 2:PLOT X{II,YC 
II:NEXT I:COLOR 168:PLOT WH-1,WY:COLOR 
169:PLOT WX,WY:COLOR 178:PLOT WH+1,WY 


73 AN=68:DIF=58 

88 COLOR 1:PLOT ®8,2:DPRAWHTO 19,2:CO0LOR 
3Z:PLOT ®8,3:DRANTO 19,3:COLOR 129:PLOT 
8,4:DRAWTO 19,4 

98 COLOR 162:PLOT 8,1:DRANTO 19,1:C0L0 
R 163:PLOT 8,22:DRANTO 19,22 

188 POSITION 8,8:? 86;"SCORE : ";PZ:PO 
SITION 8,23:7 86;"MEN ";MEN 

118 COLOR 171:PLOT 8,11:DRAWTO 8,21:PL 
OT 19,11:DRAHTO 19,21 

4111 COLOR 172:PLOT 8,18:PLOT 19,18 

112 COLOR 163:PLOT 1,15:PLOT 2,15:PLOT 
17,15:PLOT 18,15 

4115 FOR I=1 TO Z88:NEHT I 

118 RESTORE 119 

119 DATA „ » » »C5 väsr Ta »Cr „Ur +5: 


SS) DE Tei 


KB ne, 


128 FOR I=® TO 19:READ ZS:COLOR 129:PL 
OT I,8:FOR II=1 TO S@:NEXT II:POSITION 

I,8:7 86; Z$:NEHT I 

138 POSITION 3,15:? 36;''BY STEFAN FUNK 
“. 
288 POSITION 7,18:? SN6; "Start" 

281 SOUND 8,58,18,5:SOUND 2,1800,12,5:5 
OUND 3,1580,8,5:5OUND 1,2808,18,5 
285 FOR I=1 TO S®:IF PEEK(S3279)=6 THE 
N POP :GOTO 08 
21@ NEXT I:POSITION 7,18:? 26; au 
211 FOR I=®@ TO 3:SOUND I,8,0,0:NEXT I 
215 FOR I=1 TO S@:IF PEEK(S3279)=6 THE 
M POP _:GOTO 308 
228 NEXT I:GOTO 288 
388 FOR I=8 TO 3:SOUND I,8,8,8:NEXT I 
381 REM 
318 REM EEE-Ti 
328 REM 
322 POSITION 8,8:7 6 

“:POSITION 3,15:7 865" 
“:POSITION 7,18:? 86;" “ 

325 ZU=ZINTC2=RND(COI)+1:LL=ZU:IF ZU=1 T 
HEN L=2:WH=HR 
326 IF ZU=2 THEN L=1:MWN=WL 
327 VZ1S54:RHZINTLIHRNDCBII -L:RY=-1:605 
uUB 258088 
33@ R=@:ST=PEEK (6323 
332 IF ST=7 AND WR<17 THEN R=1:G0SUB 8 
CIT} 
333 IF ST=11 AND WH>Z THEN R=-1:605UB 
80988 
334 FOR I=1 TO DIF:NEXT I 
348 GOSUB 28888 
358 GOTO 338 
Se88e REM 
5018 REM 
5828 REM 
5838 PZ=PZ*2:POSITION 8,8:? 86;"'SCORE 
2 M;PZ 
5831 RESTORE 7838 
5032 FOR I=1 TO 12:READ II:SOUND 8,II, 
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18,18:50UND 1,I1#2,10,16:FOR III=1 TO 

15:NEXHT III:NEXT I 

5933 SOUND 8,8,8,8:50UND 1,8,8,0 

5835 COLOR ®:PLOT HELLI,YCLLI:PLOT AX, 

av 

5848 COLOR 1:PLOT @,2:DRANTO 19,2:C0L0 

R 33:PLOT ®,3:DRANTO 19,3:COLOR 129:PL 

OT @,4:DPRAHTO 19,4 

5058 AN=6®8 

5868 Y(LLI=S:COLOR V:PLOT KLLLI,YCLL) 

5108 GOTO 20808 

7888 REM 

7818 REM 

7828 REM 

7038 DATA 128,12@,108,108,128,128,96,9 

6,1088,188,108,108 

8068 REM 

8818 REM FTSE TI 

8828 REM 

8038 KCLI=KLCLI+R 

8048 COLOR ®8:PLOT KLLI-R,Y{L> 

8850 COLOR 164:PLOT HLLI,YCL) 

80868 COLOR ®:PLOT WH-R,NWY 

80866 HAZHH+R 

8876 COLOR 168:PLOT WH-1,NY 

8880 COLOR 169:PLOT HH,NY 

8898 COLOR 178:PLOT WH+1,WY 

818®8 RETURN 

18860 REM 

1808018 REM G3IZ-TIISTEAE TESTER Ta ST 

[EUE WIPPE] 

186828 REM 

18622 FOR I=188 TO 288 STEP 58:50UND © 
‚I,I/18,18:50UND 1,1%2,1/5,5:NEXT I:So 

UND 8,0,8,8:50UND 1,8,0,8 

18838 LP=LL:LL=L:L=LP:Y=164 :RK=INT (IHR 

NDLOI3-1:RY=-1 

106848 IF L=1 THEN WU=HL 

180858 IF L=2 THEN WU=HR 

18068 GOSUB 259008 

18661 COLOR ®:PLOT WX-2,20:DRANTO WA+Z 
»28:COLOR 171:PLOT 8,20:PLOT 19,206:#c1 

I=WR-1:KCZI=SNH+LıYCLI=20:YC23=28 

18862 COLOR 164:FOR I=1 TO 2:PLOT X<I> 
‚YCLI:NEXT I 

180866 DIF=-DIF-@.S:IF DIF(® THEN DIF=® 

18076 GOTO 330 

15608 REM 

15018 REM 

15611 REM 

15022 LOCATE KELLI,YCLLI,Z 

156023 IF Z=168 AND WHH=-HR THEN 18008 

15024 IF Z=-170 AND WN=HL THEN 10008 

15026 LOCATE KLLLI,YCLLI,ZZZ 

15838 COLOR ®:PLOT AKX,AY:COLOR 173:PLO 
T KCLLI,VCLLI:CHNSHCLLI:YY=SYCLLD 

15032 FOR I=® TO 3:5OUND I,®, 

ı 

15033 FOR I=4 TO 6 STEP 2:FOR II=e TO 

3:SOUMD II, CII+13*3,I,15:MEXT I 

15834 FOR I=-® TO 3:50UND I1,8,0,@:NEXT 

ı 

156048 MEN-MEN-1:IF MEN-8 THEN GOTO 186 

vo 

15058 POSITION 8,23:? 836; "MEN 

n 

15051 FOR I=1 TO S@@:NEXT I 

15052 HLAI=ZWEH-L:HLZI-WAL:YCII-20:YC23 
=28 

15853 COLOR ZZZ:PLOT KX,YYiHW=WM:GOSUB 
25088 

15868 COLOR 164:FOR I=1 TO 2:PLOT H<I> 
»‚YCLI NEXT I:COLOR 168:PLOT WH-1,NY:CO 
LOR 169:PLOT WHX,WY:COLOR 178:PLOT SiX+1 
‚MY 

15168 GOTO 325 

18000 REM 

18818 RE" I EIZITSE 
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18828 REM 

18822 POSITION 8,23:7 36; "MEN : 9“ 
18838 POSITION 7,18:? 86; "start" 

18833 SOUND ®8,188,18,5:50UND 1,1080,5,5 


» 
18848 FOR 1 TO S8:IF PEEK(<S3279=6 T 
HEN SOUND @:50UND 1,80,8,8:POP :6 
0OTOo 19888 

18858 NEXT I:POSITION 7,18:? u6;" 

.. 

180855 SOUND @,8,8,8:50UND 1,0,0,8 
18868 FOR I=1 TO S@:IF PEEK(SI279=-6 T 
HEN POP :6G0T0O 1986 

18876 NEXT I:G0OTO 188386 

19888 REM NEUSTART 

19818 FOR I=488 TO 688 STEP 18:50UND ® 
»,I,18,18:50UND 1,1,5,5:NEXT I:SOUND ®, 
8,0,0:5OUND 1,0,0,8 

19828 G0TO 48 

28888 REM 

ELISE HEN EBERECHNUNG FÜUER FLIEGENDEN 
28828 REM A 

20822 IF R#=@ AND RY=8 THEN RY=-ı 
2003@ AKZKLELLI TAYZYCLLI :Y=ZU+HRK 

20848 IF V<164 THEN V=167 

20844 IF V>167 THEN V=-164 

28058 IF HCLL>?® AND KELLY <19 THEN KCL 
LI=ZHCLLI+RK:COTO 20855 

20051 IF KCLLI=® THEWN RA=ZINTCZERND (CO) 


200852 IF KCLLI=19 THEN RA=INTCZERUD CE) 
»-1 
20053 HKCLLI=KELLI+RK:IFOR I=1@ TO 5 STE 
P -1:50UND @,I81®,16,I1:NEXT I:SOUND @, 
e.0,0 $ 
28055 YCLLI=YELLI+RY:IF VEOLLI=21 THEM 
POP :60T0 15088 
28060 LOCATE KELLY ,YELLI,Z 
20866 IF Z-162 THEN RY=-RY:YCLLI=YELLI 
+RY:LOCATE KECLLI,VCLLI,Z:GOSUB Z201@ 
20878 IF Z=171 THEN RK=-RK:HKCLLI=SKELLI 
+RK:LOCATE KELLI,VCLLI,Z:FOR I=S TO 8: 
SOUND @,260,18,I:NEXT I:SOUND @,0,0,0 
20877 IF Z-163 THEN RA=INTCIARNDCEI)-1 
IRYS-RYIHCLLISKCLLICRHIVELLISVELLIRY: 
LOCHTE KCLLI,YCLLI,Z:GOSUB 3201@:G0T0 
zee7e 
20079 IF ZC>172 THEN z00e96 ® 
20888 RHZ-RE:RYZ-RY:IKELLISHELLIFRKIVEL 
LI=YELLIHRY:GOSUB Z2B1E:IF KCLLIKE OR 
KELLI>19 THEN RÄZ-RA:KCLLISHELLIHRE 
20898 IF Z-1 THEN PZ=PZ+75:P=27:605UB 
28008 
26188 IF Z=33 THEN PZ=PZ+5@:P-47:60SUB 
28000 
2011@ IF Z=129 THEM PZ=PZ+25:P=142:1605 
us 2800®e 
2185®@ COLOR V:PLOT KCLLI,VELLI:COLOR @ 

ax,av 

RETURN 

REN 

REM 

REM 

RESTORE MH:FOR A=8 TO 1@:FOR I-® 
TO 7:READ B:POKE CH+ARS+I,B:NEXT I:NE 
ra 
RETURN 
REM 
Li ESS LON GETROFFEN] 
REM 
POSITION @,0:? N65"SCORE : ";PZ 
COLOR P:PLOT KCLL>,YCLL> 
FOR I=1 TO 15 STEP 3:50uND e,.voL 
L3,10,1:SOUND 1,YCLL3*1.5,10,1:50UND 2 
‚YELLI®2,18,1:SOUNMD Z,YCLLI#2.5,10,1:0 
EXT I 
28051 FOR I=@ TO Z:50UND I,0,6,8:NEXT 
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ATARI 


ı 

28868 AN-AN-1L:IF AN{=-® THEN POP :G0TO 
5888 

28878 IF KCLLI>® AND KCLLI<19 THEN RY= 
INTCZ=RND (EI) -1:RETURN 

280888 RY=-ı 

28188 RETURN 

38888 REM 

Z0e18 REM 

38028 REM 

30022 RESTORE 38078 

38838 CH=CPEEK (186) -83 #256 

30848 FOR I-18@ TO S5@6:POKE CH+I,PEEKE 
57344+I) :NEHT I 

30058 READ A:IF A=-1 THEN RETURN 
30868 FOR I=®6 TO 7:READ B:POKE CH+Axs+ 
I,B:NEXT I:6G0OTO 30858 

30878 DATA 1,60,126,255,255,255,255,12 
6,68 

30880 Data 2,80,8,0,0,0,255,24,255 
30898 DATA 3,255,24,255,0,0,0,0,8 
30188 DATA 4,24,153,66,68,24,24,36,66 
30118 DATA 5,64,33,18,220,220,18,33,64 


38128 DATA 6,66,36,24,24,68,66,153,24 
38138 DATA 7,2,132,72,59,59,72,132,2 
38133 DATA 11,195,255,255,195,195,255, 
255,195 

38134 DATA 12,255,24,255,195,195,255,2 
55,195 

30135 DATA 13,0,0,0,0,8,0,155,255 
30136 DATA 14,8,238,48,238,130,238,0,8 


38137 DATA 15,0,238,138,234,42,238,0,8 


Z0138 DATA 27,0,238,40,46,34,46,8,8 
38148 DATA -i 

36156 REM WIPPE MITTE 

30168 DATA 8,255,8,8,8, »8,0,255,24, 
24,36,66.129,129,0,255,0,80,8,0,0,8 
38178 REM WIPPE LINKS 
30180 DATA 8,8,0,255,8,0 
24,36,66,129,129, 255,8, 
30198 REM WIPPE RECHTS 
30208 DATA 255,0,9,0,0,0,0,0,9,248,31, 
24,36,66,129,129,0,0,0,255,0,8,0,0 
32018 REM 

32811 REM 

32012 REM 

32813 FOR I=4 TO 8 STEP 2:50UND 8,I%#1® 
»„18,I:NEXT I 

32814 SOUND @,8,0,8:RETURN 


*%# TIPTAB: CIRCUS #* 


Zeilen/Block:18® 
= 48:129704 
49- 1880:19788 
118- 2@1:17773 
285- 322:13427 
325- 58880:12622 
58180- 5868:28212 
5188- 88408:14849 
8858-18028:14851 
18022-15988:18965 
158018-15834:16882 
15848-18820:17833 
189022-19018:15696 
19828-28851:17693 
28052-280986: 33326 
281988-280880:14832 
28018-28108:19585 
388988-38888:13633 
38898-308137:20895 
38138-32011:22918 

TOTAL:3SI7898 
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Dynamics und Hifi-Video ’84: 
IBM, MSX, Macintosh, Profi-Zubehör neu 


Für die Hifi-Video ’84, die 
vom 22. bis zum 26. Augustin 
Düsseldorf stattfand, hat Dy- 
namics das Programm ganz 
wesentlich erweitert. 

Mehr Software und Zubehör 
gibt es für den Commodore- 
Anwender. Neu hinzu- 
gekommen sind Produkte 
für den IBM-PC und PC- 
junior und den Macintosh. 
Im Einzelnen: 

- Commodore-Software: 
Arbeits- und Archiv-Pro- 
gramme, inklusive Software 
für Kleinbetriebe als "busi- 
ness-Paket” und neue Spiele- 
Titel. 

- IBM/Macintosh: 
Teilweise bereits fertigge- 
stellt und ‘bis zum Herbst 
komplettierte business-Pro- 
gramme für Textverar- 
beitung, Faktürierung, La- 
gerhaltung, Buchhaltung, 
Mahnwesen, Statistik. 


- Zubehör: 

Für die wichtigsten im Markt 
befindlichen Computer-Sy- 
steme wird die Dynamics 
marketing GmbH ein neues, 
umfangreiches Programm 
bieten: Vom Akustikkoppler 
(für den internen Gebrauch) 
über alle Arten von Anschluß- 
kabeln bis zu Interfaces, Joy- 
sticks (Analog und Digital) 
und Lichtgriffeln. Computer- 
pflege- und Reinigungsma- 
terial sowie Staubhauben 
und Antistatik-Sprays wur- 
den ebenfalls neu vorge- 
stellt. 

Die Neuvorstellungen zei- 
gen eine deutliche Neuorien- 
tierung im Marketing der 
Dynamics marketing GmbH. 
Wesentlich verstärkt und 
ausgeweitet wurde der Zu- 
behörbereich: Nicht nur der 
Commodore sondern alle 
PE-Computer-Systeme stehen 


jetzt im Mittelpunkt. Dyna- 
mics wird- um diese Entwick- 
lung auch nach außen ganz 
deutlich zu machen - diesen 
Sortimentsteil unter einer 
neuen Marke im Handel 
einführen. 

Bedingt durch diese Neu- 
orientierung im Zubehör- 
bereich sind Ergänzungen 
im Vertrieb geplant. Neben 
die klassische Schiene (Kon- 
zerne, Versand- und Fach- 
handel) wird die Ansprache 
der IBM- und PC-Händler 
treten. Genauestens werden 
die Aktivitäten des Rund- 
funk/Phono- und des Foto- 


Fachhandels sowie der SB- 


Märkte beobachtet. 

Im Software-Bereich wird 
Dynamics weiterhin Spiel- 
Programme präsentieren. 
Schwerpunkt bilden aber 
Software-Programme, wie die 
Archiv-Programm-Serie: Im 


Die Handhelds kommen 


Daß ’klein’ im Computer- 
bereich durchaus auch 'fein’ 
sein kann, wissen wir schon 
lange. Diverse Taschencom- 
puter mit beachtlicher Lei- 
stung und tragbarer Geräte 
im Reiseschreibmaschinen- 
Format wie zum Beispiel der 
Epson HX-20 haben dies an- 
schaulich dokumentiert. 
Deshalb ist man in Sachen 
Handheld (so nennen sich 
die Dinger mit der vollwerti- 
gen _Schreibmaschinenta- 
statur im Aktentaschenfor- 
mat) auf einiges gefaßt. Und 
als im Mai Hewlett Packard 
seinen neuen HP 110 vor- 
stellte, erstaunte weniger die 
Tatsache an sich, als viel- 
mehr die trotz aller hoch ge- 
spannten Erwartungen re- 
spektable Ausführung dieses 
Vorreiters einer neuen Ära 
extrem mächtiger Kleinrech- 
ner. 
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DerHP 110istein Handheld, 
das steht einwandfrei fest: 
Weniger als vier Kilogramm 
bringt er auf die Waage und 
hat die Größe eines moder- 
nen Koffergerätes. Ein LCD- 
Bildschirm gehört zur Grund- 
ausstattung, muß also nicht 
wie beim Apple IlIc als 
Option erworben werden. 
Ebenso wird die business- 
Software Lotus 1-2-3 gleich 
mitgeliefert. 

Der Rechner kann einerseits 
als Terminal einer Groß- 
rechenanlage eingesetzt wer- 
den, arbeitet aber auch netz- 
unabhängig allein bzw. im 
Zusammenwirken mehrerer 
Hewlett-Packard- oder IBM- 
Systeme. 

Als CPU besitzt der HP 110 
einen echten 16bit-Prozessor 
(8086), der mit 5,33 MHz ge- 
taktet ist. Ein 3834 K ROM 
stehteinem 272KRAM gegen- 


über (Grundversion). Das 
sind freilich Daten, die uns 
Heimcomputer-Anwender 
vor Neid erblassen lassen. 
Der LCD-Bildschirm bringt 
16 Zeilen a 80 Zeichen. Die 
Tastatur verfügt über acht 
Sonderfunktionstasten. An 
Schnittstellen ist außer der 
HP-IL noch eine RS 232 C/ 
V24 verfügbar. Als Be- 
triebssystem ist das MS-DOS 
2.11 vorhanden. 

Preislich ist der HP 110 wohl 
indiskutabel für den normal 
sterblichen Privatanwender. 
Hewlett-Packard hüllte sich 
zwar bislang noch in Schwei- 
gen, doch könnten wir uns 
angesichts der Ausstattung 
durchaus einen Endver- 
braucherpreis von ca. 6.000,- 
bis 9.000,- DM vorstellen. 


Markt-Info 


business- und Educational- 
Bereich wird anwender- 
freundliche. und preiswerte 
Einsteiger-Software im Vor- 
dergrund stehen ("profisoft”- 
Linie von Dynamics). 
Aufdie MSX-Einführung im 
deutschen Markt bereitet 
sich Dynamics intensiv vor 
(Kooperation während der 
Einführungsphase mit japa- 
nischen Urhebern sind be- 
reits initiert). Aufgrund des 
starken japanischen Spiele- 
Angebots wird man- sich 
auch hier auf anwender- 
freundliche, deutsch- 
sprachige Archiv-, Arbeits- 
und Edu-Programme kon- 
zentrieren. 

Mit dieser Entwicklung im 
MSX-Bereich öffnet sich die 
Dynamics marketingGmbH 
japanischen Hardware-Pro- 
duzenten für eine enge 
Zusammenarbeit. 


Memtek- 
Disketten 


Ab sofort liefert Memtec Pro- 
ducts zusätzlich zur Me- 
morex Audio und Video 
Produktpalette: 

Memtek Mini-Disketten in 
double density-Ausführung. 
Die spezifischen Daten: 
l-seitig beschreibbar, Kapa- 
zität 250.000 bytes, 

2-seitig beschreibbar, Kapa- 
zität 500.000 bytes 

Die Mini-Disketten sind mit 
Lochverstärkungsringen ver- 
sehen, um somit eine lange 
Nutzungsdauer und beste 
Zentrierung zu gewährlei- 
sten. Die Memtek Mini- 
Disketten übertreffen den 
ANSI Standard und sind 
100% geprüft. 
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Telexstar: Fernschreiben mit 
dem Personalcomputer 


München, 17. Juli 1984. Alle 
Vorteile der. Textverarbei- 
tung am Bildschirm lassen 
sich jetzt auch für den 
Fernschreibverkehr nutzen: 
Der "Telexstar”, neues Gerät 
im Vertriebsprogramm. von 
"Computer 2000”, ist ein 
kompaktes Zusatzgerät, das 
einfach zwischen einen vor- 
handenen Personalcom- 
puter und den Fernschreiber 
geschaltet wird. Dadurch 
kann das Telexgerät vom ge- 
wohnten Bildschirm-Arbeits- 
platz aus sozusagen fernge- 
steuert werden - mit sämt- 
lichen Möglichkeiten, die 
auch der Computer "solo” 
bietet: Korrigieren, Spei- 
chern, Abrufen von Stan- 
dard-Texten oder gespei- 
cherten Informationen je- 
der Art. Auf das lästige 


Lochstreifen-Stanzen kann 
ganz verzichtet werden. Der 
”Telexstar” macht es sogar 
möglich, via ”Kennwort” 
Nachrichten aus einer elek- 
tronischen ”Mailbox” ab- 
zurufen. Eine erweiterte Ver- 
sion des Gerätes, "Telexstar- 
plus”, erlaubt unter anderem 
die automatische Aussen- 
dung von Rundschreiben, 
wobei Empfänger und Sen- 
dezeit vorprogrammiert wer- 
den können. Telexstar ist für 
nahezu alle gängigen Perso- 
nalcomputer lieferbar. Die 
Art des Fernschreibers spielt 
keine Rolle. Selbstverständ- 
lich hat das Zusatzgerät die 
Genehmigung des Fernmel- 
detechnischen Zentralamtes 
(FTZ-Nummer). Ein einge- 
bautes Netzteil versorgt es 


“ mit Strom. 


17. - 21.10.1984 


HOBBY ELEKTRONIK ’84 
Stuttgart 


Seit nunmehr sechs Jahren 
versteht sich die Hobby- 
Elektronik als der Termin 
für Bastler und Tüftler. 
Diesmal wollen die Veran- 
stalterihrIdeen-Reservoirvoll 
ausschöpfen und das Messe- 
Angebot noch attraktiver 
werden lassen. 

In Halle 12 des Stuttgarter 
Messegeländes am Killes- 
berg wird das Action Center 
seinen Platz haben. Interes- 
senten der Sparten Video, 


Tonband, CB-Funk, Ama- 
teurfunk, Hifi und Labor ha- 
ben dort ihren Stammplatz. 
Neu wird eine Sonderschau 
des SDR (Süddeutscher 
Rundfunk Stuttgart) sein, auf 
der Neugierige hinter die TV- 
Kulissen schauen dürfen. 
Natürlich wird auch Ihre 
CPU auf der Hobby-Elek- 
tronik '84 mit einem Stand 
vertreten sein. Schauen Sie 
mal vorbei: Wir würden uns 
freuen. 


Neue Generation von Gefahrenmeldeanlagen 


Auch in der elektrischen 
Sicherheitstechnik geht der 
Trend immer mehr in 
Richtung Mikroelektronik. 
Das trifft besonders auf Mel- 
degeräte für Brand, Ein- 
bruch und Überfall zu. Da- 
neben gewinnen aber auch 
umfassende Sicherheitskon- 
zepte einschließlich Freige- 
ländeüberwachung zuneh- 
mend an Bedeutung. 

Wie der Zentralverband der 
Elektronischen Industrie 
(ZVEI) mitteilt, haben die 
deutschen Herstellervon Ge- 
fahrenmeldeanlagen bei ih- 
ren elektronischen Pro- 
dukten und Systemen ein 
sehr hohes technisches Ni- 
veau erreicht, das weltweit 
keine Parallele hat. Zu dieser 
Spitzenstellung tragen nicht 
zuletzt die hohen Qua- 
Jitätsanforderungen bei, die 
in der Bundesrepublik im Zu- 
sammenwirken zwischen In- 
stitutionen für Vorschrift- 
ten und Richtlinien, Her- 


Mikroelektronik dringt weiter vor - Umfassende Sicherheitskonzepte 


stellern, Errichtern, Betrei- 
bern und hilfeleistenden 
Stellen erarbeitet werden. 
Die Hersteller wehren sich 
jedoch gegen Vorschriften 
die. durch eine ”Überper- 
fektion” die Wettbewerbs- 
fähigkeit der Unternehmen 
auf den Exportmärkten in- 
frage stellen und die Zahl der 
Betreiber und Nutzer solcher 
Anlagen wegen höherer Her- 


‘ stellerkosten verringern könn- 


ten. 

Die Anstrengungen der Her- 
steller auf technischem Ge- 
bietsind aufeine höhere und 
dauerhafte Betriebszuverläs- 
sigkeit der Anlagen gerichtet. 
Hier wurden in letzter Zeit 
beachtliche Fortschritte durch 
die Mikroelektronik erzielt. 
Dabei kommen sowohl fest- 
programmierte Logikbau- 
steine als auch freiprogram- 
mierte Mikroprozessoren 
zum Einsatz. 

Die auf den letzten Messen 
vorgestellten ‘Gefahrenmel- 


deanlagen der neuen Ge- 

neration zeichnen sich durch 

eine Vielzahl bemerkens- 
werter Vorteile aus. Als gra- 
vierend sind zu nennen: 

-die Reduzierung der 
Täuschungs- und Falsch- 
alarme, 

-eine wesentlich verbes- 
serte Anpassungsfähigkeit 
der Alarmorganisation, 

- die automatische Anpas- 
sungvon Meldern an wech- 
selnde Klimaverhältnisse, 

- eine erhöhte Sicherheit ge- 
gen Sabotage, 

- Möglichkeiten von Plausi- 
bilitätskontrollen vor einer 
Alarmierung, 

- detaillierte Aufbereitung 
von -Informationen im 
Alarm- und Störungsfall, 

- eine universeller nutzbare 
Zentralen-Technik für 
Brand- und Einbruchmel- 
dungen. 

Bei der laufenden Weiterent- 

wicklung der Qualitätsanfor- 

derungen an Gefahrenmel- 


liche Zusammenarbeit der 
Firmen mit der Versiche- 
rungswirtschaft, aber auch 
mit der Polizei und den 
Feuerwehren von Be- 
deutung. Als Qualitätsnor- 
men gelten unter anderem 
im Vorschriften-Bereich klare 
und einfache Darstellung 
der Anforderungen, im 
Hersteller-Bereich stabile 
Leistungseigenschaften der 
Geräte sowie im Errichter- 
Bereich eine kundenindivi- 
duelle Anlagenprojektierung 
und -errichtung mit dem Ziel 
der frühen Erkennung einer 
Gefahr und einer hohen 
Aussagesicherheit der gege- 
benen Meldung. Die Herstel- 
ler von Gefahrenmeldeanla- 
gen werden auch zu diesen 
Themen auf den kommen- 
den Ausstellungen der 84/ 
85er Saison Rede und Ant- 
wort stehen. 
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Nuss: 
Wenn ich bei meinem Commodore-64 Zeichen- 
sätze programmieren will, packt mich immer 
wieder der Frust angesichts der Tatsache, daß auf 
diese Weise unglaublich viel Speicherplatz ver- 
braucht wird. Warum reduziert ein Zeichensatz 
mit 2K Umfang den verfügbaren RAM von 38K 
auf "magere” 12K? Ich habe zwar den Verdacht, 
daß das Handbuch hier einige Auskünfte an- 
bietet: Verstehen tue ich die aber nicht. Können 
Sie mir helfen? 


M. Kettwig 


Geknackt: 
Nun, die Ursache für Ihr Problem liegt wohl da- 
rin, daß Sie Ihren Zeichensatz in den ersten 16K- 
Bereich Ihres C-64 stellen. Was Sie in Angriff 
nehmen sollten, nennen die Fachleute Bank- 
Switching. Der Begriff’besagt, daß es durchaus mög- 
lich ist, einzelne Sachbereiche so zu schalten, 
daß bestimmte Teile ausgeklammert, andere wie- 
der gezielt genutzt werden. 
Sie schieben Ihren Zeichensatz in die "Bank” 0 
($0000-$FFF), wodurch die Adressen des 
Commodore-Basic verschoben werden. Wenn 
Sie "Bank". 3 benutzen, werden Sie wesentlich 
mehr Platz zur Verfügung haben. 
Benutzen Sie doch einmal folgendes Pro- 
gramm: 

10 POKE 56576,4 

20 POKE 53272.32 

30 POKE 648,200 

40 FOR I=0 TO 2047 

50 POKE 56333,127 

60 POKE 1,51 

70 J=PEEK (53248+1) 

80 POKE 1,55 

90 POKE 5633,129 
100 POKE 49152+1.J 
110 NEXTI 
120 END 
Das Programm ist zugegebener Maßen etwas 
langsam, weil in Basic geschrieben, für Ihre Be- 
lange allerdings goldrichtig. Ihr Zeichensatz liegt 
jetzt im Bereich zwischen 49152 und 51199. Den 
bestehenden Satz können Sienun ändern, weiler 
durch die oben abgedruckte Routinein den RAM 
kopiert wurde. 
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NS v % ER Seite 


10000 REM HILFSROUTINE 

10010 REM FEHLERKANAL 

10020 OPEN 15,8,15:INPUT#15,A1,A2$,A3,A4 
10030.IF Al=0 THEN CLOSE 15:RETURN 
10040 PRINT CHR$(147) 

10050 PRINT A1,A2$,A3,A4 

10060 PRINT "RUBOUT WRONG CHARAC- 
TER" 

10070 PRINT 
BUTTON” 
10080 GET R$: IF R$< > ”F” THEN 10080 
10090 RETURN 


AND THEN PUSH F- 


In Zeile 100 wird versucht, eine normale Datei zu 
eröffnen. In 110 verzweigt das Programm in un- 
ser spezielles Hilfs-Sub. Nach der Rückkehr ins 
Hauptprogramm fragt Zeile 120 dann, obsich ein 
Fehler gefunden hat. Wenn das der Fall ist, so ist 
automatisch’ Al auch ungleich 0, und das Unter- 
programm wird erneut aufgerufen. Wir hoffen, 
daß sich damit Ihr Problem minimieren läßt. 


Nuss: - 

Wie kann ich einen entsprechenden Hinweis an 
mein Diskettenlaufwerk absetzen, wenn ein Error 
erkannt wurde und das jeweilige Programm 
weiterlaufen kann? Ein Readout des Error Chan- 
nels reicht vielfach nicht aus. In einer Zeitschrift 
las ich zwar kürzlich eine Möglichkeit, dieses 
durch ein eigenes Unterprogramm zu erreichen, 
doch hilft die Ansteuerung eines Subs bei meinem 
Problem überhaupt? 


V. Meinecke 


Geknackt: 

Nun, wenn wir Sie richtig verstehen, so steigt Ihre 

Floppy aus, wenn Sie versuchen, ohne Neueröff- 

nung in eine bestehende Datei zu springen. Da 

hilft in der Tat ein Unterprogramm, das wir der 

Übersicht wegen in die Zeilen 10000ff. legen. 

Doch zunächst Ihr hypothetisches Programm: 
9 ... 

100 CLOSE 2: OPEN "NAME,S,.R” 2,82 

110 GOSUB 10000 

120 IF Al< > 0 THEN 100 

130 ... 
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ZX Spectrum 


Türme von Hanoi 
für den ZX-Spectrum 


Die ”Türme von Hanoi” ist ein uraltes Spiel, das 
für den Anfänger ein fast unübersichtliches Pro- 
blem darstellt. 

Für diejenigen unter unseren Lesern, die es noch 
nicht kennen, sei gesagt, daß der Sinn des Spieles 
darin besteht, einen Turm von einem Ort zum an- 
deren zu transportieren. 

Der Turm besteht aus kreisrunden Scheiben, die 
alle verschiedene Durchmesser besitzen und so ge- 
ordnet aufeinander liegen, daß die größte Scheibe 
den Boden und die kleinste die Spitze bildet. Der 
Turm darf als Ganzes nicht bewegt werden; auch 
darf niemals eine große Scheibe auf eine kleinere 
zu liegen kommen. Und außer den beiden Stand- 
orten gibts nur ein einziges ”Zwischenlagerungs- 
feld”: Dadurch ist gewährleistet, daß ein findiger 
Kopf nicht etwa seinen Turm in sämtliche Be- 
standteile zerlegt und dann neu aufbaut! 

Die” Türme von Hanoi” sind als logische Spielerei 
wie geschaffen für die Behandlung durch den 
Computer: Versuchen Sie mal Ihr Glück als Spe- 
diteur in Sachen Turm-Transport! 


REM #*** Türme von Hanoi 
REM Copyriaht 1984 by Christian Böhm 
REM 
GO SUB 698: QDVER i 
REM %* Initialisierung 
PRINT AT 298,8 
FOR f=1 TO 32 
PRINT CHR® 131) 
Mer. 13TAB 14)32)3TAB 2413 
PRINT TAB 413 12) 3 
PRINT AT 14,145 CHR# 147,)CHRM 14895 TAB 145 CHR® 149) CHRS 158 
PRINT TAB 13)CHR® 147, CHR ee Bone Mer 
NT TAB 13) CHR® 149: CHRW 1523 J 
BRINT TAB 125CHR® 1475CHRM 152ICHRM 152ICHR® 1525CHR® 1S2ICHRM 148 
PRINT TAB 1Z5CHR$ 149) CHR® 1525CHR® 152,CHRW@ 152,CHR8 152)CHR# 150 
PLOT 39,16: DRAW 9,64: PLOT 199,16: DRAU 9,64: PLOT 119,16: DRAW 9,64 
LET zus=1 & 
DIM 3£3,6> 
DIM b£3>: LET bI2)=6 
FOR fei TO 5: LET a2, f)e?7-fı NEXT f 
REM #% Haurtpro9ramm 
PRINT #85AT 1,9,,AT 1,85"Zua Nr. "zus" ı von ") FLASH 13"T7"4 
PAUSE 8 
IF INKEYS<>"L" AND INKEYS<>"Z" AND INKEYS<(>"3" THEN GO TO 158 
LET zi=VAL INKEYS 
PRINT #8,5CHRS 8: INKEYM)" nach ") FLASH 13"7", 
BEEP .1,28 
PAUSE ® 
IF INKET’$="9" THEN GO TO 158 
IF INKETM<>"1" AND INKEYS<(>"2" AND INKEY#<(>"3" THEN GO TO 158 
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er ee a THEN GO TO 158 

IF zi=z2 OR bizi?e 

IF bCz2%x>8 THEN IF aczi,b(zid>>acz2,biz2)> THEN GO TO u 
PRINT AT 28-b(z1),10%z1-1Qı DVER 8," "ICHRE 1514" " 
BEEP .85,1 

LET bIzi)=ebizi)-1' LET bi z2jebl zZ’ 

LET h=a@ z1,b(z1’+1? 

LET a(z2,b(z2))eh 

PRINT AT 28-b( z2), 18%z2-5-INT Cch+13/72 9 

IF h/Z=INT <h/2> THEN PRINT CHR% 149): GD TO 228 

PRINT CHR%& 147; 

FOR f=1 TO INT CCh+13/2=193K2: PRINT CHR 1523: NEXT f 

IF h/Z=INT <h/2> THEN PRINT CHRM 158): GO TO 248 

PRINT CHRS$ 145 

LET zu9=zus+i 

IF b£19%>6 AND b£3%<>6 THEN GO TO 158 

PRINT AT 18,8; OVER 8;"Sie haben den Turm von Hanoi in ")zu9) 
PRINT " Z",CHRM 145, "sen fertisgestellt." 

FOR f=1 TO 18: BEEP „86,28: NEXT f 

PRINT #@;AT 1,65 FLASH 13 "Wollen Sie noch einmal sPielen 7" 
PRUSE ® 

IF INKEYS="n" OR INKEY#="N" OR INKEY#=" STOP " OR INKEY6=" " THEN STOP 
RUH 

REM %%* Spielanleitun® 

DVER 8: PAPER 1: INK 6: BÜRDER 1: CLS 

PLOT 127,175: DRAU 8,-7: DRAW 1.8: DRAW 8,7 

RESTORE 678 

FÜR fesi1 TO 12 

REARD x1,w1,x2,92 

PLOT x1,u1: DRAW x2,u2 

NEXT f 

DATA 124, 173,-18,8, 131,173, 18,8, 124, 172,-13,8,131,172,13,8 
DATA 113,171,-3,8, 113,170, -3,8, 142, 171,3.8,142,179,3,8 

DATA 124,169,-13.98,131,169, 13,8, 124,168, -18,8. 131,168, 18,8 
PRINT AT 2,8,5CHR® 1275" 1984 ı Christian-B"ICHRB 1443 "hm-Software" 
PRINT AT 4,9, "Christian B";SCHR& 1443 "hm" 

PRINT TAB 5; "Breitensteinstra"sCHRS$ 146; "e 19" 

PRINT TAB 9, "82068 Rosenheim" 

PRINT TAB 7;"Tel. 83831 / 452880" 

FLOT 8,184: DRAU 255,8 

PRINT AT 11,83 "T"SCHR$ 145, "rme von Hanoi" 

PLOT 58,77: DRAU 124,8 

PRINT : PRINT "In diesem Spiel Seht es darum," 

PRINT "den auf Stange 2 befindlichen Turm auf einer der beiden ande-" 
PRINT "ren Stangen umzubauen. " 

PRINT "Doch Achtung ' Sie K"SCHRE 144) "nnen immer" 

FRINT "nur den obersten Stein von einerStange nehmen, und d"; 
PRINT CHR& 145) "rfen diesennie auf einen kleineren lesen." 
PRINT TAB 14; "Viel Veran" sCHR® 145; "Sen |" 

PRINT #8, TAB 1; FLASH 13"Bitte dr"JCHR& 145, "cken Sie eine Taste |" 
PAUSE 8 

PAPER &: INK 1: PRINT AT 9,8,,TAB 81 "Türme von Hanoi", 

PRINT VIII IIHÄHLEIEIIEIE ' REM 22 Kommas |! 

RETURN 

REM %* zelbstdefinierte Grarhik 

RESTORE 948 

FOR f=8 TO 71 

READ n: POKE USR "a"+f,n' NEXT f 

RUN 

DATA 49,0,56. 68. 68,68,56,8,48,8,68;68,68,68,56.8 

DATA 8, 24,96,48,36,36,48,564,1,1:3,3;:7,7,15,8 

DATA 8,0,128, 128, 192,192, 224,8,31,.31. 63,63, 127,127,255,9 


5 DATA 240,240, 248, 248, 252,252,254,8,1.1,1,1,1,1,1,1 


Oktober 


DATA 255, 255. 255, 255, 235, 259, 255,8 
REM 34% Aufnehmen mit SAYE "turm" LINE 988 
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ZX Spectrum 


Disassembler 
für den ZX-Spectrum 16/48K 


Programme, die Maschinensprache in eine anwenderorientierte 
Sprache übersetzen (bzw. umgekehrt), benötigen vielfach enorm 
viel Speicherplatz. Deshalb veröffentlichen wir Ihnen einen Disas- 
sembler, der lediglich 4,1 KB belegt. 
Die Übersetzungsgeschwindigkeit beträgt 2 Mnemonics pro 
Sekunde. Sofern für die eingegebene Zahlenfolge kein Mnemonic vor- 
liegt, wird ein’Klartext-Error gemeldet (”...kein Mnemonic”) 


Im Programm wurden auch einige Ma- 
schinencoderoutinen untergebracht, in 
erster Linie, um Speicherplatz zu spa- 
ren. Dies zeigt auch, daß es sehreinfach 
ist, solche Routinen an eine beliebige 
Stelle im Programm zu setzen, die 
Startadresse läßt sich leicht unter Ab- 
frage der Systemadresse 23637/38 
feststellen. 

Doch nun zum Programm selbst: 
Dieses wird dem Listing entsprechend 
eingegeben. Esistdaraufzu achten, daß 
die REM-Zeilen mindestens so viele 
Zeichen enthalten, wie angegeben. 
Nun gibt man "RUN 191”, dann "RUN 
488” und schließlich "RUN 965” ein. 
Das bewirkt, daß die entsprechenden 
Maschinencoderoutinen in die REM- 
Zeilen eingelesen werden. Die Zeilen 
191,488 und 965 müssen danach ersatz- 
los gestrichen werden. Um Speicher- 
platz zu sparen, empfiehlt es sich, den 
Datenblock ab Zeile 6000 ebenfalls zu 
streichen, er wird ebenfalls nicht 
mehr benötigt. 


Variablenliste: 

i,j,6,g: Sprungvariablen, die in GOTO- 
bzw. GOSUB-Befehlen verwendet 
werden 

t,v: Variablen, die entsprechende Data- 
Zeilen rücksetzen 

z: Adresse der zu lesenden Zelle 

a: Inhalt der gelesen Zelle 

a0,a2: Start bzw. Endadresse 

zl: Adresse derersten zu lesenden Zelle 
eines Befehls 

y: FOR-NEXT-Variable, wird zu Aus- 
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druck .aller Daten eines Befehls 
benötigt 

b$: Mnemonik 

c$: "AF” oder ”SP” 

m: Dient zur Berechnung des Mne- 


moniks 


Programmaufbau: 

2: Funktion, die die Startadresse der 
entsprechenden Maschinencode- 
routine festlegt 

3-4: Diese Funktionen sind in Abhän- 
gigkeit von aund m entweder Null oder 
eins. Ergibt sich der Wert eins, so weiß 
die aufrufende Programmzeile, daß a 
einen Mnemonik entspricht, das durch 
diese Zeile zusammengestellt wird 

5: Hier werden häufig benötigte Varia- 
blen definiert 

10-90: Hauptroutine: Abfrage von 
Start- und Endadresse, Ausgabe des 
Mnemoniks und Bytes wahlweise auf 
Monitor oder Drucker, sowie Meldung 
nach Beendigung des Listings 

150: Hier springt die Hauptroutine hin. 
Mnemoniks, die sich nicht dem 8er 
bzw. 16er Raster anpassen, werden 
hier definiert 

190: Aufruf des MC-Programms in 192. 
Hier wird die Abhängigkeit von a fest- 
gestellt, welcher Programmblock ange- 
sprungen wird. 

Programmblöcke: 

200: Alle Register-Ladebefehle von 64- 
127 

210: Alle 8-bit Befehle von 128-191 
300-320: 16-bit Befehle nach 203 dez 
bzw. "CB” hex ! 


400-499: 16-bit Befehle nach 237 dez 
bzw. "ED” hex 

500-589: 8-bit Befehle von 1-63 
590-699: Alle 8-bit Befehle nach 191 
900-970: Die Indexregisterbefehle, hier 
werden jedoch nicht die Mnemoniks 
erstellt, sondern lediglich durch die 
MC-Routine die Länge dieser Befehle 
errechnet. 

490: Auch hier befindet sich eine MC- 
Routine, diese stellt fest, ob a einem 
Mnemonik entspricht, das nach ”ED” 
hex steht, welches sich aber nicht dem 
8er bzw. 16er Raster anpaßt. 

800-810: Hier werden die Mnemoniks 
zusammengestellt, die dem 8er Raster 
entsprechen. 

1000-1120: Data-Zeilen, enthalten die 
Mneminiks bzw. Teile davon. 

2000: Hier werden die Mnemoniks des 
16er Rasters zusammengestellt, 
2500-2510: Unterroutine, erstellt 16-bit 
Datenwort, z.B. bei Sprungbefehlen 
oder Unterprogrammaufrufen. 
3000-3010: Unterroutine, erstellt 8-bit 
Datenwort, z.B. bei relativen Sprüngen. 
4000: setzt Klammern um ein 16-bit 
Datenwort, z.B. bei Ladebefehlen. 
5000: Fehlermeldung, wenn eine Zah- 
lenfolge nicht als Mnemonik definiert 
ist. 


Das Programm wird mit SAVE”DISAS- 
SEMBL’LINE 0 abgespeichert, nach- 
dem man die MC-Routinen in die 
REM-Zeilen übertragen hat. Geladen 
wird es mit LOAD”DISASSEMBL” 
oder LOAD” ”., 
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Aufgabenhilfe Mathematik 


für den ZX-Spectrum 16K 


Wie oft haben Sie sicher,schon an 
Ihrem Spectrum gedacht, wenn Sie 
über einer kniffligen Hausaufgabe 
brüteten. Doch für den Einzelfall erst 
umständlich ein leistungsfähiges Pro- 
gramm schreiben, das nachher unter 
Umständen doch nicht läuft - dazu hat 
freilich nicht jeder Lust. 

Jetzt ist Ihnen diese Sorge endgültig ge- 
nommen: Das HC-Matheprogramm 
hilft Ihnen zuverlässig, ob es sich bei 


1 REM MATHE 1 VERSION 5 
2 INk 7: BRIGHT 1 
3 EORDER & 
4, PAPER GM: CLE 
= FRINT AT Eu 
FOR LU=1 TO 
FEIHT AT U: 
FEINT AT U: 
HEAT 1 
FÜR K=1 TO 21 
FEINHT AT K.ZA:CHE$ 143 
FREINT AT K.315CHR$ 143 
HE#XT K EN 
FÜR U=4 TO 18 ®: 
FREIHT AT Z1.W:CHRE& 143 
HE#T MH 
FOR H=2a TO 31 
FREIHT AT 11.H:CHR& 143 
HEXT H 
PRINT #8; 


In 
01 
NEON om ein 


Mnemmemmmmme 


INTEGEALRECHNUNG 


GREAFHISCHE DARSTELLUNG VON 
MÖNOTONIE 
NULLSTELLENBERECHNUNG. MIT 


FLASH 15AT 8,15 "MATHE 1 


Ihrem Problem ums Integrieren, ums 
Differenzieren, um Näherungsverfah- 
ren wie die regula falsi oder um Mo- 
notonien und das 


Plotten von 
Funktionsgraphen geht. 
Da das Programm strikt bedie- 


nerorientiert aufgebaut ist, können wir 
uns an dieser Stelle Jange Gebrauchs- 
anleitungen sparen. 

Ihr Spectrum fragt Sie nach der jeweils 
anfallenden 


Problemstellung, z.B. 


YERSIOCN 7 71.84": 


DIFFERENTIALRECHNUNG 
I 
FUNKTIONEN 
: D 
HEMTÜNSCHER HAEHERUNG 


ALLGEMEINE INSTRUKTIONEN Mm" 


22 FRINT AT 


12.8; "BEUECKEN SIE NUM EINES DER 


M-_ RAHNB ZUE WAHL IHRER RECHENART" 


IF INKEYS="T" 
IF INKEYS="F" 
IF INKEYSS"D" 
27 IF INKEYS="N" 
: IF INKEYS="M" 
IF INKEYS="H" 
so To 2 
REM DIFFERENTIALRECHNUNG 


THEN Go TO 
THEN . Ga TO 
THEN GO TO 
THEN GO TO 
THEN GO TO 
THEN 50 TO 


IMFUT "GEBEN 
IHMPLT 
LET A=.1E-4 
LET B=1 
bIM E35 


406 
2a 
za 
sad 
Eiel:] 
End 


: FEINT AT 1.85 "DIFFERENTIALRECHNUNG-MÖONOTONIE" 
;"BEI ERSCHEINEN DER FEHLERMELDUNG HR.& NUMBER TOO EIG IST DIE 
STETIG UND DAHER IN DIESER FORM NICHT 


PAUSE 208: 


"Nullstellenbestimmung mit Newton- 
scher Näherung?” oder”Geben Sienun 
die Funktion ein (mit X als Argument, 
doch ohne die abhängige Variable 
N) 

Wenn Sie Schüler der Jahrgangsstufe 12 
und. 13 bzw. Student eines mathe- 
matischen-naturwissenschaftlichen 
Faches sind, so werden Sie unsere Auf- 
gabenhilfe bald nicht mehr missen 


"wollen... 


ELS : 


POKE 


: PRINT "DIESES PROGRAMM BEINHALTET FOL- GENGE RECHENARTEN: 


D 
[7 
HN 


ZEICHEN AM RECHTEN BILDSCHIR 


DIFFERENZIERE 


N SIE HUN DIE FUNKTION EIN MIT & ALS ARGUMENT. ABER OHNE DIEREHÄ 
"GEBEN SIE X@ EIN".® 
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Go SUB 244 2 

LET K=#+A 

Go SUB 242 

LET #=#-2#A 

GO SUR 242 

LET Ca 2I-VC3 IC SKA) 

ELS 

PRINT "DIE STEIGUNG BETRAEGT AN DIESER STELLE: "; C 

» IF ABS C>IES THEM PRINT AT 8,8; "AH DIESER STELLE LIEGT MHAHRSCHEIN 
HEHLL ICH- KEITSSTELLE YOR,DIE FUNKTION ISTNICHT DIFFERENZTERBAR | " 

Ei FEINT "DIE FUNKTION IST STRENG MONSTON STEIGEND AN DER STELL 


a 


A SHE DIE SE NEN 


Bora nd 


Dan EN DEE DEE NE SR SR EC AH IR 


IF Cea THEN PRINT "DIE FUNKTION IST STRENG MOHOTON FALLEND Ah DER STELLE 
+A 
4a GO TO 0253 

242 LET E=B+1 

243 LET WKEI=VAL A 

244 RETURN 

za6 REM FUHKTIONEN 

302 CLS 

222 PRINT AT @.125 "FUNKTIONEN" 

24 INPUT "GEBEN SIE NUM DIE FUNKTION EIN MIT % ALS ARGUMENT;ABER OHNE DIEABHA 
EHGIGE YARITABLE ': "As 

247 LET KONTRÖLLE=& 

33 LET Del 

>12 INPUT "GEBEN SIE DEN DEFINITIONSBEREICH VON. ..BIS...EIN,SOMIE DIE SCH 
RITTFOLGE VON 8: "A,B.T 

213 INPUT "YERGROESZERUNG: "56 

=14 LET FLAG=B Y=Xz1X-7) 


®16 LET P=306G 5 ep 
#17 LET U=P-INT P " : 

IF U>=.5 THEN LET F=INT P+l * z 

IF 19.5 THEN LET P=INT P 3 E 

LET P=A.1#P > . 

LET I=f x, & 

IF ABS A>=ABS B THEN LET E=ABS A % : 5 
CS MN lche ; 
IF ABS A<ABS B THEN LET E=ABS B des = 

THEN LET FLAG=2 A es ee 
To 31 2 

PRINT AT 10.Ka"." : 

NEXT K : 4 
WER 1: PRINT AT 11.05 "A" ;AT. 11,215 "B" 3 
IF Aia THEN PRINT AT 9,165 "P" AT 21,16; "0" - 

THEN FRINT AT ©: 13" P";AT 21,1;"0" . 

TO 21 ® 

a THEN PRINT AT L.B5"." En 

1 THEN PRINT AT L1S;"." : 
A=-18 B=18 P= 
IF „KONTROLLES 1 THEN LET A=vaL "x" er 
A TO B STEP C re 
"AL. A 


IF ABS“ Y#G-D+355>175 OR CV#G/D+B8%KG THEN GO TO 372 


IF FLAG THEN Gü TO 376 

FLOT ca CH#1ZP/Er128, VGrD+3S 

HEART ; 

Gü 10" 2 
LET KONTI 1: LET #=#+0.1 

GO) TO 

FLOT « R2ITFE VEGDHSS 

HEHT # 

PRINT #5 AT 8.05 "Be"; I;" "zngen;g;" njupen; 

FEINT #2: AT 1, ;-F:" S=NEUE AUFGABE 1=C0PIE" 


IF INKEYS="1" THEN- sc TO 394 
IF INKEY$="@" THEN G0 TO 21 


BEREIT 
LFRINT "Y=":A8; TAB 735" ": COPY: LPRINT 5" 
"zng=u;];H Bet;B;" Peu;pin og 
za er GO TORZ2H 
4ad REM INTEGRALE 
dal CL : PRINT AT 8,13; " INTEGRALE" 
423 INPUT "GEBEN SIE HUM DIE FUNKTION EIN MIT & ALS ARGUMENT,ABER ÜHHE DIEABHA 
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ZX Spectrum 


EHGIGE VARIABLE \: "ak 


4a6 INPUT "UNTERE GRENZE" ,D, "OBERE GRENZE" E. "ANZAHL BER SUEINTERYALLE"F 
447 CL 
402 IF F>=4a THEN FRINT "BITTE WARTEN!" 

LER -br2-F 

LET LET #=b: GO SUB 4265 

FOR G=1 TO F 

LET A=i+A: LET K=k#+B: G0 SUE 43 


& 

LET A='kd+A: LET K=3+B: 50 SUB 436 
LET A=Y+A 
NEAT G 
LET C=A#B72 
ELLE 
BEEP .3.38 : BEEP 0.5.27 
IE FLAECHE BETRAEGT",.C: 60 TO 853 
LET Y=YAL As 
LET »=AB3 4 
RETUFRH 
Ed CLS : PRINT AT 8.3: "ALLGEMEINE INSTRUKTIONEN" 
s51 FRINT AT 2.0:"1. BEI EINGABE DER FUNKTIONEN. IST X IMMER DIE VARIABLE. 

2. EEBENKEN SIE.DASS BER RECHNERBEI TRIGONDMETRISCHEN FÜUNKTIONENIMMER DIE AR 
TRELE ALS EOGENMASSBETRACHTET.WUENSCHEN SIE DIE EINHEIT IN GRAD.SC TIPPEN SIE 


FUER DIE YARTAELE DEN WINKEL IN GRAD EIN. LIND MULTIPLIZIEREN DIESE MIT PI- 
129,.UOBEI DIESER FAKTOR MIT DEM ARGUMENT IN KLAMMERN STEHEN MUSS ZUM BEIS 
F, :SIHE SGEFIS1SOIMIT 3A GRAD ALS WYARIABLE IN DEM BEISPIEL. 3. BEI AUFTRE 


TEN DER FEHLER- MELDUNG NR.&.HUMBER TOO BIG.IST DIE EINGEGEBENE FUNKTIOM NIC 
HT STETIG.DAHER AUCH MEISTENS NICHT LOESBAR. " 
2 FRINT AT 28,9; "DAS FÜUNKTIONENFRÜGRAMM DARF NIE MIT EINER UNSTETIGKEITSSTELL 
E BEGINNEN!" 
583 FEINT #8.AT 1.0; "DRUECKEN SIE Z BEI BEENDIGUNG DIESER SEITE: " 
IF INKEYS="Z" THEN CLS : IF INKEYS="Z" THEN FRINT "4.MIRD DIE YERGROESSER 
LING Zu GENSS GEWAEHLT.S0. WIRD DIE FUNKTION HUR AUF EINEM TEIL BER #-ACHS 
E LIEGEN.WAEHLEN SIE BANN EINE KLEINERE VERGROESSERUNG.SCO ERSTRECKT SICH NUN BER 

GEAFH LIEBER DIE GANZE ABSZISSE. 3.DAS FROGRAMM ENTHAELT EIHEN LISTSC 
HUTZ. AUS DIESEM GRUND LOESCHT ES SICH BEI BREAK- YERSLICHEN UND BEI FEHL 
ERHÄAFTEHN EINGABEN! DRUE 
CKEN SIE W BEI BEEHLIGLUNG!" 

#15 IF INKEYS="U" THEN 60 TO 21 

s12 GO TO 804 

200 REM NEWTONSCHE NAEHERUNG 

az CLS : PRINT AT 8.6: "NULLSTELLENBESTIMMUNG MIT NEWTONSCHER NAEHERUNG 


=_INFUT "GEBEN SIE NUN DIE FUNKTION EIN MIT # ALS ARGUMENT.ABER OHNE DIEABHA 
IGE YARTABLE Y: "A 

4 LET M=4: DIM 32: OYER 5 

= LET B=6: LET F=333993993: LET A=a.1 

IHFUT "GEBEN SIE #8 EIN".E 

IMPLT "GEBEN SIE EIN.FAE WELCHER NAEHERUNG DIE RECHNUNG GESTOPPT HERD 
: ";N 


b1 


m 
DENE EEN! 


2 00 0 AO Zc 
=) 
r 
r 


LET #=YAL "E" 

LET M=hM+1 

PRINT AT 18.85 "MAEHERLUNG NR." ;M 
LET E=1 


mann 


n! 


3 


Go SUR 245 
BER ENCLINEZIWETKA) 


2% 
en Kor 
S:";E 


3: WEM 
233 FEINT AT 13.9; "ZUISCHENERGEENIS 
24m IF ABS ©F-E>>H THEN GO TO Sa 
@41 IF ABS CF-E>X=H THEN 60 TO 852 
2 IF £F-E)=N THEN STOP 
LET F=YAL "E" 
STOP 
LET X E5=YAL AS 

RETUFH 
PRINT AT 19,6; "DIE HULLSTELLE LIEGT BEI #=";&;" “ 
IF INKEYSC}"" THEN 60 TO 21 

co TO 853° 
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Wie verbessert man 


ATARI-Basic-Programme? 


Oft passiert es, daß man 
während der Realisierung 
und Austestung von Pro- 
grammen feststellt, daß die 
Ausführungszeiten größer 
sind, als man gerne hätte - 
oder der freie Speicherraum 
wird immer knapper. 

Was tun? 

Nun, hier sind ein paar Tips, 
wie man zum einen die Ge- 
schwindigkeit _ verbessern 
und andererseits Speicher- 
platz sparen kann. Aller- 
dings schließt das eine das 
andere manchmal aus. 


Beispiel: 
XXXX GOTO YYYY 


YYYY GOTO ZZZZ 


ZZZZ BEFEHL 


Ebenso ist die Logik des Al- 
gorithmus zu überprüfen: ist 
der Kode so effizient wie mög- 
lich? (Dieser Schritt gilt al- 
lerdings nicht nur für 
Basic.) 


2. Regelmäßig aufgerufene 
Unterprogramme und Schlei- 
fen sollten sich am Anfang 
des Programmes befinden. 
Einmalig zu durchlaufende 
Befehlsfolgen wie Initialisie- 
rungen, Ausgabe von Titel- 
bildern, Eingaben von der 
Tastatur - bei denen der 
Rechner sowieso auf den Be- 
nutzer warten muß - und 
DATA-Zeilen dagegen am 
Ende. 

Warum? Das Programm ist 
im Speicher als eine Folge 
von Zeilennummern mit den 
dazugehörigen Befehlen ab- 
gelegt - die kleinste Zeilen- 
nummerals erste, gefolgt von 
den aufsteigenden bis hin 
zur größten Zeilennummer. 
Jedesmal, wenn BASIC auf 


ein GOTO oder GOSUB. 


stößt, beginnt der Interpreter, 
von der ersten Zeile an nach 
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Doch nun die Tips: 


Verbesserung der 

Geschwindigkeit: 
1. Der erste Schritt, der zu 
empfehlen ist, wäre - da 
Basic keine strukturierte 
Sprache ist und einfaches 
"Drauflostippen” erlaubt, 
das Programm nun zu kodie- 
ren. Nach vielen Änderun- 
gen kann der Kode nämlich 
sehr ineffizientwerden- und 
unnötig ausgeführte Befehle 
(z.B. Sprungbefehle) kosten 
nun einmal Zeit. 


besser: 
XXXX GOTO ZZZZ 


YYYY GOTO ZZZZ 


ZZZZ BEFEHL 


der gewünschten Zeilennum- 
mer zu suchen. Er benötigt 
also für die Suche nach einer 
Zeile am Ende des Program- 
mes mehr Zeit. 


Beispiel: Programmaufbau 
Zeilennr. 
10 GOTO Initialisierung 
20 
Unterprogramm | 


50 
100 


Unterprogramm 2 


300 
Hauptprogramm 


XXXX 


Initialisierung 


YYYY 


Data 


3. Schreibe regelmäßig aus- 
zuführende Befehlsfolgen 
innerhalb einer Schleife mit 
in die Schleife hinein und 
nicht als Unterprogramm. 
Bei jedem GOSUB muß 
BASIC (wie auch bei GOTO) 
die entsprechende Zeile im 
Programm suchen und sich 
außerdem die Zeile sowie 
den Befehl merken, zu dem 
es aus dem Unterprogramm 
zurückkehren muß - also bei 
jedem Aufruf Einträger (a 4 
Bytes) in den Run-Time- 
Stack machen und wieder 
entfernen. 


4. Bei geschachtelten Schlei- 
fen sollte die am meisten 
durchlaufende Schleife die 
innerste sein. Jedesmal wenn 
BASIC auf einen FOR- 
Befehl stößt, plaziert der In- 
terpreter folgende Einträge 
auf dem Run-Time-Stack: 
a) die obere Grenze, die die 
Laufvariable erreichen darf 
und somit die Abbruchbe- 
dingung darstellt. 

b) die Schrittweite, mit der 
die Laufvariable erhöht 
wird, 

c) eine Nummer, die die Lauf- 
variable in der Variablenta- 
belle repräsentiert, 

d) die momentane Zeilen- 
nummer und 

e) die Position des FOR- 
Befehls in der Zeile. 

Alles zusammen ergibt 16 
Bytes! 


Beispiel: 
FOR I= 1 TO 10 STEP2 
FOR J: =: 1-TO7 1000. 
STEP 1 


NEXTJ 
NEXTI 


Wird der NEXT-Befehl ge- 
funden, so schaut BASIC in 
den letzten Eintrag auf dem 
Stack. So wird sichergestellt, 
‘daß die Variable des NEXT- 
Befehls die gleiche wie die 
Laufvariable im Stackein- 


trag ist (sonst Fehlermel- 
dung). Es wird überprüft, ob 
die Laufvariable die Grenze 
schon erreicht oder überschrit- 
ten hat. Ist das nicht der Fall, 
so geht der Interpreter wieder 
zu dem FOR-Befehl zurück 
und führt die Schleife erneut 
aus; andernfalls werden der 
Eintrag vom Stack entfernt 
und die Befehle nach dem 
NEXT ausgeführt. 

In unserem Beispiel werden 
also 1 mal die Einträge für 
die I-Schleife und 5 mal für 
die J-Schleife auf den Stack 
gebracht und wieder ent- 
fernt. Würde man die zwei 
Schleifen vertauschen, also: 


FOR J = 1 TO 1000 STEP I 
FORI=1TO 10 STEP2 


NEXTI 
NEXTJ 


so würde das ganze für die 
nun innere I-Schleife 1000 
mal (!) gemacht werden 
müssen. 


5. Schreibe Schleifen, wenn 
möglich, in eine Zeile - dann 
braucht der BASIC-Interpre- 
ter nicht zur nächsten Zeile 
zu gehen, um die Schleife 
auszuführen. 


6. Wenn für eine gewisse Zeit 
keine Informationen auf 
dem Bildschirm nötig sind, 
dann schalte die Bildschirm- 
ausgabe mit POKE 559,0 
aus (das Programm läuft 
dann bis zu 30% schneller). 
POKE 559,34 schaltet die 
Ausgabe wieder ein. 


7. Schreibe Schleifen in Ma- 
schinencode und benutze die 
USR-Funktion. 


Einsparung von Speicherraum 
1. Wie schon erwähnt, ko- 
diere das Programm neu. 
Eine neue, bessere Stukturie- 
rung macht das Programm 
effizienter und spart Speicher- 
platz. 
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2. Entferne REM-Zeilen. Sie 
werden als ASCII-Zeichen 
abgespeichert und brauchen 
viel Platz. Allerdings geht da- 
durch die Lesbarkeit eines 
Programmes verloren und 
andere können nur mühsam 
das Programm verstehen. 
Unter Umständen weiß man 
nach einiger Zeit selbst nicht 
mehr, was man da zusam- 
menprogrammiert hat. Des- 
halb sollte man immer eine 
Version des Programmes mit 
REM-Zeilen für spätere Än- 
derungen aufheben und eine 
andere Fassung die REM- 
sonst aber identische Zeilen, 


Computer-Bücher 


Die Referenztabelle eines jeden BASIC-Programmierers! 
Unentbehrlich für Konvertierungen! 


Wo immer Sie das BASIC-Listing eines Computers finden - sei es 
in Zeitschriften, Büchern, Clubmagazinen etc. - mit dieser Tabelle 
Sonder- und Grafikbefehle, 
Ein- und Ausgabebefehle für Bildschirm, Drucker, Kassetten, und 
Disketten, Funktionen und Systembefehle in ihrer konkreten 
Anwendung nachschlagen. Bei Konvertierungsarbeiten kön- 
nen Sie sofort den für Ihren Computer zutreffenden Befehl 
ablesen. Computerumsteiger und Neulinge können mit Hilfe 
dieser Tabelle den Rechner ausfindig machen, der den von 
Ihnen benötigten BASIC-Befehlsvorrat hat, so daß die zu 
lösenden Probleme auch bewältigt werden können. Die 
große BASIC-Referenztabelle ist auch die große Hilfe im 
BASIC-Unterricht, da sie eine bisher nicht dagewesene 
Vollständigkeit von BASIC-Dialekten im Zusammenhang 


können Sie alle 


bietet. 


1375x980mm patentgefaltet (1,3475 m’) Und 96 Seiten 
Format 144x278mm — Bestell-Nr. LV-033-X 


Umfangreiche Software (Listi mit 
ng ( 2) 


ausführlicher Doku: 


Anwendungsbereiche finden Sie in unseren Büchern. 


zum Arbeiten oder Spielen 
benutzen. 


3. Ersetze Konstanten. die 
mehr als zweimal vorkom- 
men, durch eine Variable, die 
den gleichen Wert besitzt. In- 
nerhalb des Programmes 
wird für jede Konstante 7 
Bytes benötigt, für die Re- 
ferenz einer Variablen je- 
doch nur 1 Byte. 


Beispiel: 
10X=Y*2 Ar 2 


7 Bytes 


Anders: 02=2 
10%X=Y!Q2 + Q 
1 Byte 1 Byte 


Ebenso spart die Initalisie- 
rung von Variablen mit dem 
READ-Befehl Speicher- 
platz. Wie schon gesagt, wer- 
den für eine Konstante 7 
Bytes benötigt, Datas dage- 
gen werden als Zeichen im 
ASCII-Code abgelegt, für 
jede Ziffer ein Byte. 

Für Zahlen, die nur ein- oder 
zweimal benötigt werden, 
kann man Ausdrucke ver- 
wenden. 


COMPUTER 
was nun? 


InPASCAL | 


| 
| 
| En Tabeterkabuons- 
| Programm 
un 


im Fachhandel prospekt R6 gegen Freiumschiag, 


W-D. Luther-Verlag 


Elisabethenstraße 32 - 6555 SPRENDLINGEN 


der Verlag 

mit der großen 
BASIC-Referenz- 
tabelle aller 
gebräuchlichen 
Dialekte. 


Bsp.: Z1=1:22=2. 

Wenn nun die Zahl 3 be- 
nötigt wird, so nimm den 
Ausdruck Z1+Z2. Das spart 
4 Bytes. 


4. Wird eine Zeilennummer 
oft als Sprungziel benötigt, 
kann diese einer Variablen 
zugewiesen werden und 
dann in GOTOs, GOSUBs 
verwendet werden. Wirdzum 
Beispiel die Zeile 100 fünfzig 
mal von anderen Zeilen auf- 
gerufen, werden ca. 300 Bytes 
gespart, wenn man der Varia- 
blen Z100 den Wert 100 zu- 
weist und GOTO Z100 
verwendet. 


5. Halte die Namen von 
Variablen so kurz wie mög- 
lich. Jeder Name wird als 
ASCII-Zeichenkette _ vom 
Basic in .die Namentabelle 
gespeichert: je kürzer also die 
Namen sind, um so kürzer ist 


die ganze Tabelle. 
6. Initialisiere Zeichenketten 
(Strings) mit Zuwei- 


sungen:10 A$="ABC” be- 
nötigt weniger Platz als eine 
Initialisierungdurch READ- 
und CHRS$-Befehle Hat 
man zum Beispiel Maschi- 
nenprogramme, die in Zei- 
chenketten abgelegt werden, 
so kann die Eingabe des ent- 
sprechenden Codes als 
Zeichen in die Zeichenkette 
gegenüber Datas viel Platz 
sparen. Außerdem geht: die 
Initialisierung _ wesentlich 
schneller. 


7. Nimm mehrere Befehle in 
eine Zeile - 3 Bytes werden 
jedesmal gespart, wenn zwei 
Zeilen zu einer zusammen- 
gefaßt werden. 


8. Wenn in Arrays nur Zah- 
den von 0-255 vorkommen, 
dann kann man diese mit 
CHR$ in Zeichenketten 
packen und mit dem Wert, 
den die ASC-Funktion lie- 
fert, rechnen. Diese spart für 
jede Zahl 6 Bytes. 


Sie sehen: oft können ein we- 
nig Planung und Orga- 
nisation nicht nur Klarheit 
und Übersicht schaffen, son- 
dern überdies auch viel kost- 
baren Speicherplatz sparen. 
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1. Berliner Computer-Tag 


Vom 5. bis 7. Oktober 1984 
findet in Berlin der 1. Berliner 
Computer-Tag statt. 

Der 1. Berliner Computer- 
Tag ist auf den örtlichen 
Fachhandel ausgerichtet. 
Dem Besucher wird dadurch 
ermöglicht, sich einen Über- 
blick über das Computer- 
und Software-Angebot in Ber- 


lin zu verschaffen. 

Viele örtliche Unternehmen 
haben ihre Teilnahme zu- 
gesagt. Darüber hinaus sind 
die führenden deutschen 
Fachverlage mit einem eige- 
nen Stand vertreten. 

Diese Regional-Messe ver- 
steht sich nicht als Konkur- 
renz zu den großen Messen, 


Personal Computer Sinclair 
QL Ende Oktober erhältlich 


Der 32-Bit Rechner Sinclair 
QL ist Ende Oktober mit 
deutscher Tastatur, deut- 
schem Handbuch und mit 
Programmen in. deutscher 
Sprache erhältlich. 

Mit diesem ungewöhnlichen 
vielseitigen Gerät, das über 
vier Grundprogramme für 
Tes- und Datenverar- 
beitung, Kalkulationen und 


Grafik verfügt, will die kürz- 
lich gegründete Tochter- 
gesellschaft Sinclair Re- 
search Ltd., Branch Office 
Bad Homburg, den Markt 
für professionelle Computer 
nachhaltig beleben. In den 
QL eingebaut sind zwei Mi- 
krolaufwerke mit einer Spei- 
cherkapazität von je 100K für 
die Massenspeicherung, die 


Ein Wort in eigener Sache: 


Wenn Sie CPU- bzw. HOMECOMPUTER-Hefite oder 
auch Kassetten/Disketten bestellen, dann 

verlangen Sie zu recht, daß Ihr Auftrag nach Eingang 

bei uns prompt und zuverlässig bearbeitet wird. 

Sie dürfen uns glauben, daß wir das Mögliche tun, um 
diesem Wunsch gerecht werden zu können. 


Leider entstehen aber sehr oft Schwierigkeiten, 

weil Leser ihre Anschrift auf dem Bestellformular 
nicht angeben, eine falsche Konto-Nummer eintragen, 
auf Überweisungsformularen nicht deutlich schreiben 
und vieles mehr. 

Sicher, mit einem hohen Arbeitsaufwand und einer 
guten Portion Detektivarbeit kriegen wir den einen 
oder anderen Besteller schon heraus. Doch das kostet 
Zeit und geht zu Lasten aller Leser, die von unserem 
Bestell-Service Gebrauch machen. 
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Markt-Info 


sondern wie auch die ande- 
ren .Computer-Tage des 
gleichen Veranstalters, als 
interessante Bereicherung 


Veranstalter regionaler Com- 
puter-Messen überhaupt. 

Veranstaltungsortisteineder 
letzten großen, vom Berliner 


des Marktes. Messegelände unabhängi- 
Der Veranstalter, die Firma gen, Hallen in der Berliner 
Computer-Tage Redmann, Innenstadt. 


ist der Ausrichter der Hes- 
sischen und Bayerischen 
Computer-Tage, der erste 


Der 1. Berliner Computer- 
Tag findet im Berliner Kindl 
Festsaal statt. 


ED ee nn u a VE rn 


Unternehmen, Schulen und 
Universitäten, aber auch für 
anspruchsvollere private An- 
wender zu Hause. In der 
Bundesrepublik  Deutsch- 


sechs weiteren 


sich mit 
Microdrives auf 800K er- 
höhen läßt. Hinzu kommt 
Netzwerkfähigkeit: 64 QLs 
können miteinander oder 


mit Sinclair Spectrum- land wird der Personal Com- 
Homecomputer vernetzt puter QL 1.998- DM ko- 
werden. sten. 


Gedacht ist der neue QL für 
Selbstständige, Freiberufler, 
kleiner und mittelständische 


Daher unsere Bitte: 


Geben Sie bei Ihrer Bestellung unbedingt folgendes 
an: 

Ihren Namen (vollständig) 

Ihre komplette Anschrift (Straße, Postleitzahl, Ort) 
Gewünschte Heft-Nr. bzw. Kassette/Diskette zu Heft-.Nr. 
Vergessen Sie beim Ausfüllen des Überweisungsformu- 
lars für Bank oder Sparkasse nicht, mit dem Kugel- 
schreiber fest aufzudrücken. Wir bekommen nämlich 
immer den untersten Beleg - und der ist nicht lesbar, 
wenn Sie zu leicht schreiben. 

Wenn Sie eine Zahlkarte oder das gelbe Postgiro- 
Überweisungsformular verwenden, so bedenken Sie 
bitte, daß wir nur den schmalen linken Abschnitt ins 
Haus bekommen. Da muß alles, was Ihre Bestellung 
betrifft, deutlich vermerkt sein. 


Ein Tip: 

Versetzen Sie sich ganz einfach mal in unsere Lage und 
überlegen Sie, was Sie allesan Informationen brauch- 
ten, um Ihre Bestellung auszuführen. 

Herzliche Grüße 


die Versandabteilung 
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Dragon 32 


KanlıT 


Bei diesem grafisch ansprechenden Spiel braucht der 
Spieler gutes Reaktionsvermögen und genaues Augen- 
maß. 


Ziel des Spieles ist es, viele Raumfähren mit Ihrem Panzer 
abzuschießen. Das ist aber gar nicht so einfach, da die 
Fähren in verschiedenen Höhen fliegen und unterschied- 
lich schnell sind. Dazu kommt noch, daß der Panzer im- 
mer in einem Winkel von 45 Grad schießt und daß man pro 
Raumfähre nur einen Schuß zur Verfügung hat. Es heißt 
also, genau zielen und schnell reagieren. 

Zur individuellen Anpassung stehen hierbei zwei verschie- 
dene Geschwindigkeiten zur Wahl. Am Ende des Spieles 
wird die Anzahl der Treffer und der bisherige Rekord 
angezeigt. 

Dieses Spiel ist ein weiteres Programm, das die klare und 
vielseitige Grafik des Dragon zur Geltung bringt. 


10 panzer 

20, Von: ” 

30)? U ERRSTICCHITUH ET.S 

40 SCHUETZENHUETTENWEG 36 

so £000 FRANKFURT/MAIN-?7O 

680 

70 M$="02T4V15L2CL4FFAAOSL2ZCLSCOZAHOSCOZAH" 

80 N$="L2GLBAHAAHALZF”" 

90 O$="L4GLSAGL2ZFLA4OSF" 

100 B$="R3SF1R11BH2FSBL2RSHSBF2R3E6BG2ZR2DSLSBESL22ZBRSG2LSBE2G5* 
110 A$="BM5, 190R20E3BL3LZOUZRZ2ZOD2ZBR3U2H3LZ20GSDZFSBU9BLZ2BDIEIRZZFIBULOGSHIESBDPBL 
ZU1IHSL9IGAIDS" 

120 PMODE 3,1:SCREEN 1,0:PCLS 

130 DRAW"SSO0BM20,92"+B$S:PLAY M$+N$S+M$+0$ 

140 CLSt3) 

150 PRINTS 44, "H3HHHHHH" 5 

160 PRINTS 764, "%panzer#”; 

170 PRINTS108, "IHHHHHHHR" 5 

1820 PRINTS 160,"SIE MUESSEN VERSUCHEN, SO VIELE WIE MOEGLICH DER 20 ANGREIFENDEN 
RAUMFAEHREN MIT DEM LASER IHRES PANZERS ABZUSCHIESSEN. DIE RAUM=FAEHREN FLIEGEN 
IN VERSCHIEDENENHOEHEN UND MIT VERSCHIEDENEN GE=SCHWINDIGKEITEN." 
4190 PRINT"GESCHOSSEN WIRD MIT “5CHR$(34) 5 "SPACE" SCHRS (34); "." 

200 PRINT:PRINT* VIEL; ERFOLGITFFS 

210 IF INKEY$<7>" "THEN 210 

220 CLStO) 

230 PRINTS 229, "GESCHWINDIGKEIT (1/2)?"3:SCREEN 0,1 

240 I$=INKEYS$ 

250 IF I$="2"THEN POKE &H FFD 7,0:1=1 ELSE IF I$<>"1”" THEN 240 
260 PMODE 4,1:SCREEN 1,0:COLOR 0,1:PCLS:DIM R(33,12):DIM S(33,12) 
270 DRAW "S4"+As$ 

280 DRAW "BM2,10"+B$ 

290 PAINT (11,6),,0 
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3500 
sıo 
320 
330 
340 
350 
3680 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
sıo 
520 
530 
540 
s50o 
560 
s70 


GET 


D=RND (150) 


F=(171-D) +27 


NEXT C 


60T0 340 


RETURN 
c1.5(3) 
PRINTS 
IF P>@ 
PRINTS 
PRINTS 


THEN @=P 


LINE (0,192) - (256,192) ,PSET 
(1,4)-134,16),R,6G 

GET (37,4)-170,16),5,6 
PUT (1,4)-(34,16),S,PSET 


FOR C=217 TO 0 STEP -{RND(20)+10) 


PUT (C,D)-(C+33,D+12),R,PSET 
PLAY"TZ200V1001CEG" . 

IF E=0 AND INKEY$=" " THEN GOSUB 450 
PUT (C,D)-(C+33,D+12),S,PSET 

IF C<31 THEN E=0 


6=6+1:1IF G=20 THEN 520 


LINE (27,171)-(F,D) ,PSET 
PLAY "V2OT25503CC#DD#":E=1 
LINE (27,171) -(F,D) ,PRESET 
IF F>=C AND F<=C+33 THEN PUT 1C,D)-(C+33,D+12),S,PSET:CIRCLE(F,D),20,0,.5 
IF F>=C AND F<=C+33 THEN PLAY" T255V3001CCHDDHEERFFHEHEDRDCHC":P=P+1 

IF F>=C AND F<=C+33 THEN CIRCLE(F,D),20,1,.5:C=0 


128, "SIE HABEN";5P; "FAEHREN ZERSTOERT 
197, "BISHERIGER REKORD: "5835 


288, "WOLLEN SIE NOCH EINMAL SPIELEN*®j5 
INPUT R$S:IF R$="J" THEN G=0:P=0:PMODE 4,1:SCREEN 1,0:COLOR 0,1:G0T0O 340ELSE 


IF I=0 THEN CLS:END:IF I=1 THEN POKE £H FFD 6,0:CLS:END 
580 IF R$="N" AND I=1 THEN CLS:POKE EH FFD 6,0:END 


590 IF Rs="N" 


Wir haben einen 64’er Com- 
puterclub mit dem Haupt- 
thema "Lösung von Ad- 


ventures” gegründet, und 
wären Ihnen dankbar, wenn 
Sie uns in Ihrer Clubecke 
vorstellten. 


Gerade um die User des 
Computers TI 99/4A steht 
es im Moment in Deutsch- 
land gar nicht gut. Obwohl 
es mittlerweile eine ganze 
Menge von Leuten gibt, die 
den TI99/4A benutzen. Wir 
haben aus diesem Grund 
einen Computer-Club ge- 
gründet, den ”Compy Com- 
puter Club”. 

Hier einige Dinge über un- 
seren Club: 


AND I=0O THEN CLS:END 


Hier nun einige Daten über 
unseren Club: 


- Wir suchen Mitglieder aus 
dem gesamten deutsch- 
sprachigen Gebiet. 

- Wir bieten unseren Mitglie- 
dern einecca. 1/4 jährlich er- 
scheinende Clubzeitschrift 
(die erste ist in Vorbe- 
reitung) und einen gut 
organisierten Informations- 
austausch. 


Der Compy-Computer-Club 
wurde am 06.01.1984 ge- 
gründet. Zur Zeithaben wir 
ca. 130 Mitglieder. Der 
Clubbeitrag beträgt für Ju- 
gendliche unter 18 Jahren 
1 DM und für Erwachsene 
über 18 Jahren 2 DM im 
Monat. 

Wir haben ein Clubmaga- 
zin, das alle zwei Monate 
erscheint, einen Pro- 


- Unser Clubbeitrag beträgt 
pro Jahr DMS5.-. 
Interessenten sollen sich 
bitte schriftlich mit mir in 
Verbindung setzen. 


Christian Paas 
Nordring 54 
4630 Bochum 


grammspeicher mit ca. 250 
Tauschprogrammen und 
und und... 

Jeder, der mehr wissen 
möchte, schreibe uns. Bitte 
Rückporto nicht vergessen, 
den wir haben noch kein 
Programm, das Brief- 
marken oder Geld druckt. 
Wenn Sie noch Fragen ha- 
ben oder mehr über uns er- 
fahren wollen: Wir stehen 
Ihnen zur Verfügung! 


Club- 


Computerclubneugrün- 
dung 


Apple II und TA alphaTro- 
nic PC: Kostenumlage für 
sämtliche Aktivitäten. 


Kontaktadresse: 
Ralf Clasen 
Grüner Brink 22 
4513 Belm 
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Dragon 32 


Ein toller Vertreter der Break-outs ist 
dieses Spiel, bei dem ein Ball querschirm- 
ein über den Monitor fliegt. Sie besit- 
zen einen Schläger und müssen ver- 
suchen, den Ball auf dem Bildschirm 
zu halten. Sie können den Schläger le- 
diglich nach links oder rechts bewegen. 
Doch geraten Sie nicht in Verzeiflung! 


19 sseseunsossmeeennne 


für den Dragon 32 


Das Spielfeld istglücklicherweise links, 
oben und rechts von Wänden begrenzt, 
an denen der Ball abprallt und immer 
wieder nach unten (dort wartet Ihr Schlä- 
ger) reflektiert wird. Daher auch der 
Name des Spieles. 

Ach so, dann ist die ganze Sache ja ex- 
trem einfach! werden Sie jetzt denken - 


und irren wieder: Es genügt nämlich 
nicht allein, den Ball auf dem Bild- 
schirm zu halten. Es gilt auch, gelbe 
Punkte zu ”ernten”, die sich in der obe- 
ren Spielfeldhälfte befinden und durch 
geschicktes Schlagen getroffen werden 
müssen! Toi, toi, toi! 


28 SREFLEX======n0n= 
38 OPYRIGHT=BY=H. KRANMER= 
48 /=s=msumzemeszneenzunumunenn 
se 
68 VARIABLENLISTE ==== 
>@ ’ P--JETZIGE PUNKTZAHL 
-ANZAHL DER BAELLE 
80 ’ AUF--NUMMER DER AUF- 
STELLUNG ß 
98 ’ B--ALTE X-KOORDINATE DES 
SCHLAEGERS 
188 ’ A--NEUE X-KOORDINATE DES 
SCHLAEGERS 
118 ’ SI--NEUE X-KOORDINATE DES 
BALLES 
128 ’ S2--NEUE Y-KOORDINATE DES 
" BALLES 
138 ? O1--ALTE-X-KOORDINATE DES 
BALLES 
148 ’” 02--ALTE Y-KOORDINATE DES 
BALLES 
150 ” F--FARBE DES PUNKTES MIT 
KOORDINATEN S1,52 
168 ’ R--RICHTUNG DES BALLES 
-FOR-NEXT-SCHLEIFE 
178 ? C--WERT DES KNOPFES 
CRECHTER JOYSTICK » 
CHMAL ?" ) 
188 CLS3 
198 PRINT@238, "KENNEN SIE DAS SPIEL"; 
288 PRINT@268, "CJA=LENTERI/NEIN=LNI)" 5:1 
NPUTDS 
218 IF D$=""THEN GOTO 488 
228 CLS 
238 PRINT @33,"DAS SPIELFELD LGRUENI WIR 
D NACH OBEN , NACH LINKS UND N 
ACH RECHTS DURCH MAUERN LROTIJ BEGRENZT 


BEI "NO 


248 PRINT@161,"WENN DER BALL [BLAUI MIT 
DER MAUER IN BERUIEHRUNG KOMMT WIRD E 


R VON DIESER REFLEKTIERT ." 

258 PRINT@257, "MAN KANN DEN SCHLAEGER [B 

LAU] AM UNTEREN BILDSCHIRMRAND MIT H 

ILFE DES RECHTEN JOYSTICKS NACH LINK 

S UND NACH RECHTS BE- WEGEN . 

268 PRINT@449, "GELESEN [ENTER] "5: INPUTD 

$ 

2798 CLS 

288 PRINT@33, "DER SCHLAEGER KANN ABER NI 

CHT NACH OBEN UND NACH UNTEN BE- WE 

GT WERDEN ." 

298 PRINT@129, "WENN DER BALL AUF EINEN G 

ELBEN PUNKT TRIFFT SO WIRD DER BALL R 

EFLEKTIERT ‚, DER PUNKT GE- LOESCHT U 

ND DIE PUNKTEZAHL DES SPIELERS ERHOEHT 

SICH UM EINS „" 

398 PRINT@289, "WENN MAN EINE AUFSTELLUNG 
GE- SCHAFFT HAT WERDEN ZUR PUNKT- 2 

AHL DES SPIELERS 198 BONUS- PUNKTE AD 

DIERT UND DER SPIELER BEKOMMT EINE NEUE 
AUFSTELLUNG . 

318 PRINT@481,"GELESEN [ENTER] "5 :INPUT 

D$ 

328 CLS 

338 PRINT@33, "WENN DER BALL DEN SCHLAEGE 

R BERUEHRT WIRD ER VON DIESEM AU 

CH REFLEKTIERT .WENN DER BALL DEN UNTERE 

N BILDSCHIRMRAND VER- LAESST VERLIERT MA 

N DEN BALL " 

348 PRINT@193,"UND EIN NEUER WIRD EINGE- 

";:PRINT@225,"WORFEN . " 

358 PRINT@257, "AM ANFANG DES SPIELES HAT 
MAN DREI BAELLE . BEI JEDER BE- E 

NDETEN AUFSTELLUNG BEKOMMT MAN EINEN 
Dazu .„" 

368 PRINT@417,"GELESEN LENTER] "5 :INPUTD 

E2 

37@ CLS:PRINT@33, "ZIEL DES SPIELES IST E 

S DURCH GESCHICKTES MANOEURIEREN 
MOEGLICHST VIELE PUNKTE ZU ER- REICHE 
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N. 


ICH WUENSCHE IHNEN NUN VIEL SPASS 


380 PRINT@3S2," WOLLEN SIE JETZT BEGINNE 


N [DRUECKEN SIE EINE TASTEJ"; 
398 A$=INKEYS:IF As="" THEN 338 
488 CLS4 


418 PRINT@283," REFLEX "; 

420 PRINT@235,"CC) 1984"; 

438 PRINT@267," Br 23 

448 PRINT@299, "H.KRAMMER" ; 

45@ SCREENB, 1:FOR A=1T0598::NEXT 
468 PLAY"L28@" :FOR A=1T015 

478 SCREENB, 8:PLAY"BAG" 

488 SCREENB, 1 :PLAY"EDC" :NEXT 
498 PLAY"PS@" 

sea ’ BILDSCHIRMAUFBAU 

518 PMODE3, 1:SCREEN1,@:PCLS 

528 PLAY"L298" 

538 P=8:N=3:AUF=1 

548 PCLS:COLOR4 :LINE(8,8)-(255, 18), PSET, 


55@ LINE(8,8)-(5, 192), PSET,BF 
568 LINE(258, 8)-(255, 192), PSET,BF 
578 COLOR2 

588 LINE(28, 38)-(222,64),PSET,BF 
598. COLORI 

688 LINE(24,35)-(226,59),PSET,B 
618 LINE(24,41)-(226,53),PSET,B 
628 LINE(24,47)-(226, 47), PSET,B 
638 LINEC33, 28)-(219,66),PSET,B 
648 LINEC39,28)-(213,66),PSET,B 
658 LINE(45, 28)-(297, 66), PSET,B 
668 LINE(S1,28)-(281,66),PSET,B 
678 LINE(S?,28)-(195,66), PSET,B 
688 LINE(63,28)-(189, 66), PSET,B 
698 LINE(69, 28)-(183,66),PSET,B 
788 LINE(75, 28)-(177,66),PSET,B 
?18 LINE(C81, 28)-(171,66),PSET,B 
728--LINE(87,28)-(165,66), PSET,B 
738 LINE(93, 28)-(159,66),PSET,B 
748 LINE(99, 28)-(153,66),PSET,B 
758 LINEC185, 28)-(147,66),PSET,B 
768 LINEC111,28)-(141,66), PSET,B 
778 LINEC117,28)-(135,66),PSET,B 
788 LINEC123, 28)-(129,66),PSET,B 
798 LINEC129, 28)-(129,66),PSET,B 
800 ’ SCHLAEGER BEWEGEN 

818 SI=INTCRND(35)%6)+22:52=85 
828 R=INTCRND(3))+3 

838 B=INTLJOTSTKC@JX2)+14 

848 A=INTLJOYSTKC8)%3.651)+12 
858 IFS2>188THEN8?8 

868 IF B=A THEN 398 

878 COLORI :LINECB-6, 186)-(B+6, 191), PSET, 


BF 

888 COLOR3:LINECA-6, 186)-CA+6, 191), PSET, 
BF 

898 B=A 

398 ’ BALL BEWEGEN 

912 ON R GNTOS68, 1828, 1188, 1168, 1238, 128 
8 

9328 EOLORI:LINE(O1,02-1)-(01+3,02+3),PSE 
T,BF 

938 COLOR3:LINECS1,S2-1)-(81+3,52+3),PSE 
T,BF 


949 GOTO848 

958 ’ BALL LINKS OBEN 

968 01=S1:02=52:51=S1-6:52=52-6 
978 F=PPOINT(S1,S2) 

988 IF F=1THENS28 

998 IF F=4THEN1388 

1888 IF F=3THENIZBELSE1438 
1918 BALL OBEN 

1828 01=S1:02=$2:52=S2-6 

1838 F=PPOINTLSI,S2) 

1848 IF F=1THEN328 

1858 IF F=3THEN328 

1868 IF F=2THENI1888 

1878 R=5:52=S2+12:PLAY"A" :G0T0928 
1888 P=P+1:PLAY"B" :R=5:6010928 
18938 ’ BALL RECHTS OBEN 
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1188 01=S1 :02=52:51=S1+6:52=52-6 

1118 F=PPOINTCS1,52) 

1128 IF F=1THEN928 

1138 IF F=4THENI1518 

1148 IF F=3THENI2BELSE1568 

1158 ® BALL LINKS UNTEN 

1168 01=S1:02=52:51=S1-6:52=52+6 

1178 F=PPOINT(S1,S2) 

1188 IF F=1ANDS2<188THENS328 

1198 IF F=4THEN1448 

1288 IF F=2THEN1458 

1218 IF F=3THENI468ELSE1898 

1228 > BALL UNTEN 

1238 01=S1 :02=52:52=52+6 

1248 F=PPOINT(S1,$2) 

1250 IF F=1ANDS2<188THENI28 

1268 IF F=3THENI1468ELSE1888 

1278 * BALL RECHTS UNTEN 

1288 01=S1 :02=52:51=S1+6:52=52+6 

1298 F=PPOINT(S1,52) 

1388 IF F=1ANDSZ<188THENI28 

1318 IF F=4THEN1579 

1328 IF F=2THEN1588 

1338 IF F=3THENI469ELSE1898 

1348 IFPPOINTCO1,02-6)=4THEN1360 

135@ R=4:51=0] :5S2=02-12:PLAY"A" :G0T0928 
1369 R= 1=01-12:52=02::PLAY"A" :G0T0928 
1378 P=P+1:PLAY"B" :R=3:60709289 

1388 IF PPOINTCS1+6,52)=4 THEN 1498 
1398 R=3:51=01 :52=02-6::PLAY"A" :G0OT0928 
1488 IFPPOINTCS1,S2+6)=4THEN1420 

1418 R=4:S1=S] :52=02:PLAY"A" :G0T0928 
1428 R=6:51=01 :52=02 :PLAY"A" :G0T0928 
1438 P=P+1 :PLAY"B" :R=3:60T0928 

1448 R=6:S1=0] :52=S2+5 :PLAY"A" :GOT0928 
1458 ":R=1:G0T0928 

1468 IFPPOINTCS1-4,52)<>3THENI588 

1478 IFPPOINTCS1+7,S2)<>3THENI1498 

1488 R= 1=01 :5S2=02 :PLAY"C" :60T0849 
1498 R=! 
1588 R=1:S1=01 :52=02:PLAY"C" :60T0848 
1518 IFPPOINTCSI-6,S2)=4THEN1538 

1528 R=1:51=01 :52=02-6:PLAY"A" :G0T0928 
1538 IFPPOINTCS1,S2+6J=4THEN1558 

1548 R=6:51=01+6:52=02:PLAY"A" :GOT0928 


1558 2:PLAY"A" :GOT0928 
1568 P=P+1:PLAY"B" :R=1 :G0T0929 
1578 R=4: 1:52=S2+6::PLAY"A" :GOT0928 


1588 P=Pr1:PLAY"B" :R=3:60T0929 

1599 ’ BALL VERLOREN 

1688 NM=N-1:PLAY"L2SOBAGFEDCB" 

1618 R=INTCRNDC3)+3):IF N=@ THEN 1658 
1628 COLOR! :LINEC01,02-1)-(01+3,02+3),Ps 
ET,BF 

1638 SI=INTCRNDC35)%6)+22:52=85:G0T0849 
1648 ’ NOCHMAL ? 

1658 FORA=1T01888:NEXT :CLS4 

1668 PLAY"LIBOGECGECGECGECGECGECGECGEC" 
1678 PLAY"GECGECGECGECGECGECGECGEC" 
1688 PRINT@284, "SIE HABEN" ; :PRINT@238,P; 
"PUNKT" .:IF P=1 THEN PRINT " ERREICHT 8" 
;:GOTO 1788 

1698 PRINT"E ERREICHT 2"; 

1788 PLAY"L28802" 

1718 PRINTE388, "NOCHMAL ?" ;:SCREENG, 1 
1728 FORA=1T028 

1738 SCREENG, 8:PLAY" BA" 

1748 SCREEN®, 1 :PLAY"CD" :NEXT 

1758 PLAY"03" 

1768 FOR K=1T01588 

1778 C=PEEK(65288) 

1788 IF C=126 OR C=254 THEN GOTO 488 
1798 NEXT K:PLAY"L2B@CBA" :CLS:END 

1808 ’ AUSTELLUNG GESCHAFFT 

ODER BALL VERLOREN ? 

1818 IF P<>CAUFX2-1)%198 THEN.GOTO 1598 
1828 ’ AUSTELLUNG GESCHAFFT 2 

1838 AUF=AUF+1:P=P+198:M=M+1 

1848 PLAY"L2BCDEFGABAGFEOC" 

1858 PLAY"L298" 

1868 GOTO 548 


cPU 
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Nach dem Laden des Programmes heißtes”boxen” was 
das Zeug hält. 

Als Boxer in der linken Ecke sind Sie mit einem ”S” 
auf der Hose gekennzeichnet und treten gegen den 
Boxer in der rechten Ecke, mit Namen Schläger” an. 
Die endgültige Entscheidung der Meisterschaft kann 
sich bis zu 5 Runden hinziehen. 

1. Runde heißt 1 Minute Zeit. 

Das Spiel kann mit der Taste ”S” unterbrochen 
werden. 

Bei einem Limit von 20 Kinnhaken für Sie oder Ihren 
Gegner ist das Spiel vorzeitig beendet. 

Am unteren Bildschirmrand werden die Runden, die 
Zeit, die Anzahl der Punkte und der Kinnhaken 
angezeigt. 


Punkteverteilung: 
Ein gelungener Brustschlag zählt 5 Punkte. 
Ein Kinnhaken wird mit 10 Punkten bewertet. 


Mit folgenden Tasten wird die Spielfigur bewegt: 
5 = rückwärts 
7 = schnell vorwärts 
8 = vorwärts 
9 = Brustschlag 
10 = Kinnhaken 


Wir wünschen viel Vergnügen! 
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WEHRSTR.10,763 


PRINT AT ı1, SH INSTRÜCKT Tan 
idenı® 


"U" THEN G0T0 5 
'N" THEN 50T0 98 


LE c= 
TTE EINE TASTE ı=i= 


15 BazBR AT.8,0;B$; AT 8,0;8$; A 
T 18,0; 


7. Eins AT 7,8;H$(5 TO 


an 
End 
o- 
2m 
cn 
u 
1 
ug 
[= 
= 
m 
z 
E 
jr 
' 
[2] 
re 


? 5+ 

15 FRINT AT 9,0;H4$(5 TO S+ 

19 IF INKEYS<>"" THEN 60T0 

20 NEXT 5 

21 5070 15 

25 ÖLs 

@6_ PRINT AT 4,2;"SIE SIND ZUR 
BOXUELTMEISTE ER- SCHAFT ANGETR 
ETEN UM DEN BIHERIGEN WEL 
TMEISTER ABZU- LOESEN.SIE SI 
ND DER BOXER IN DER LINKEN EC 
KE,UND SIE HABEN EIN 5 AUF IHR 
ER HOSE, DER BOXER IN 
BEE RECHTEN ECKE IST IHR GEGNE 

R,SEIN NAME IST ""SCHLAEGER"" 


27 PRINT AT 14,5; "BEE 


23 IF_INKEYS<>"" THEN G0TO 35 
sa Brio 282% 


35 BRINT AT_4,2; "DIE MEISTERSC 
HAFT_KANN BISZU 5S_ RUNDEN DAU 
ERN.EINE RUNDE DAUERT 38 ZEI 
TEINHEITEN (CA.1 MINUTE) 

SIE KOENNEN D 
As SPIEL JEDER- ZEIT MIT DER 
TASTE_5_UNTER BRECHEN. WENN 


= 
mi 


DAS SPIEL IST _UND SIE E 

EREN REDEN” BERORD EESEREET. E 

NS ERBE 
EINGEBEN." 


= PRINT AT 17,5; "BEE 


3 IF BREI THEN G0T0 45 


408 Bone 


45 BRINT AT 4,1; "WENN SIE ODER 
IHR GEGNER 20 KINNHAKEN EIN 
GESTECKT HABEN IST DAS SPIEL 
VORZETIG BEENDET. UVEBRIGENS HAT 
IHR GEGNER SCHON 5 DOBEBE BOXE 
R ERDEHMEN SEHAUEN HAT." ; 17,8 


"DRUECK IE EINE Fasten 
45 IF NR Ysc>"" THEN GOTO. SS 
& SoTo 48 


55 PRINT AT_8, "UNTEN AUF DEM 
BILDSCHIRM ERBEN DIE RUNDEN .,DI 
E_ZEIT,DIE PUNKTE UND DIE KINN 
ACKEN ANGEZ EIST IHRE SIND JEW 
wa D ;AT 21,8, "EINE 


I 
E_DRUECKEN. 
SS IF_INKEYS<> THEN G0T0 55 


sa S0Tö 55 
CLS 

25 PRINT AT #2: VEREEEEEE 
[No | DIE PUNKTE WE 
RDEN FOLGENDER- MASEN VERTEIL 
T.FUER EINEN GELUNGENEN BR 
USSCHLAG GIBT E D 
FÜER EINE 


PRINT AT 4,2;"S0 KOENNEN SI 

E. IHREN BOXER BEUEGEN 
MIT "Se = 
VECKURERT = 

SCHNELN VoRW. 
JORURERTS MITLENG 
BRUSTSCHLAG MIT " 
= KINNHAOKEN 


2 PRINT AT 21 
33 IF_INKEYS$<> THEN G0T0 35 
Sole SOTo 83 


9 AS="MICHREL BRISCHLE" 
= ter HI 250 


BE EBENN Er Tee aR R;AT 1; 


+ 


Do: 


MSN 
4 


N ONHHHHHH 
" HIN 


ET, 
Sand Else THEN 
R=5 THEN G0T0 
INT T-4>Y+5 THEN LET T=I 
=INT {RND#21 +1 

1 THEN GOSUB 5200 

2 THEN GOSUB_ 5238 

AND KO<>3 THEN G0T0 
=3 AND D=S THEN GOTO:3 
IF E=5 AND K<>3 THEN GOTO 
AND E=5 THEN 50T0 38 


DR BE SESTNT IE 
PRBSBSEEW 


Kzewen 

HÖro 

Bo Si 

SS u 
' 


SHSSS 


DERMNSRLN 
s 


{7} 


BRHFHROESEWERRH 
SSUÜURSHFRESRRR 


80 
Fon 


© 
ON: TO 16, 
BRiT AT N,B; 


E THE! 

N=1 TO 58 

IFLF 19 THEN_GOTO 9045 
TO ı6, 

PRINT ar N,8;' 


6983 IF se 3 THEN LET_Y=Y+2 
=INT T-4 THEN LET 


5888 PRINT AT 
PR AT 


PRINT_AT X+4,Y SmeRc 
IF Y+S=INT T-4 THEN LET P=P 


BRINT AT 18,22; P 


IAT_X+2,Y+5; 
Y+S=sINT T-4 


29.22;E+K#S 
72 PRINT AT 13,22;P 


THEN GOSUE Si 
THEN G9T0 188 


v+s THEN PRINT AT 5+ 
AT 5+43,T-5; WAT 5+4, 


4>Y+5_THEN PRINT AT 5+ 
„AT 543, 1-4; "P AT 544, 


Ir Wyss THEN LET PP=PF+1 


IF_T-4=Y+5_THEN LET D=D+1 
PRINT AT 18,28;PP 

PRINT AT 28,28; D+Kos5 
RETURN 


IF T-5= v+4 THEN LET PP=FP+S 
PRINT AT 18,28; pp 

RETURN 

IF F=18 THEN LET 6$="DURCH 


50 IF K=3 AND E=5 OR KO=3 AND 
D=5S OR F=18 THEN LET G$="NACH AB 
BRUCH" 

3095 CLS = 
9198 IF P>PP THEN LET Ns="sınD s 


ARABSER.PP>P THEN LET MS="IST Sc 
Er IF EP»P OR P>PP THEN_PRINT 
B_S;M 


s;TAl 
Iso’ IF _P=P>2 _THEN a0ıo Sa 
9145 PRINT an 5,1 
® PRINT TA 


= TA 
TAB 1 B';TAB 11; " 
9158 FÜR _N=2 TO 288 
9165 NEXT N 

9178 GOTO 96588 
9199 CLS 

9288 FOR N=5_TO 17 


SZ10 PRINT AT NS; 
ERBE 


9228 NEXT_N 
9225 PRINT AT 4,5; 


9238 PRINT A 
9,7; 


THEN STOP 
THEN_ NEW 
3" AND Z=38 THEN 


3" AND R<S_AND K 
F<»190 AND Z<30 T 


9278 IF INKEYS$ THEN GOTO 92 
BEER, IF INKEY$="5" THEN GOTO 999 


9298 C0TO 9248 
9388 DIN C${1,29 

Baane LET C$ (13 ="LEIDER UNENTSCHI 
DE! 
9318 FOR N=1 TO 28 

9315 PRINT am 3% uNeBE Csil,N 
9328 FOR _6=1 


9335 G0OTO 9158 
9599 RES #=NAMENSEINTRAGUNG#=#" 


9588 
9687 Es PP>P AND PP>=HI THEN GOT 


0 _968 
Ir P<HI Tagen. soro 9559 
PRINT, AT 1,7 


FOR N=1 TO 20 

PRINT_AT 18,7; 

T 18, Denen HIGH-SCORE" 
NEXT 

PRINT", AT 18,7;" 


9615 IF P>PP THEN LET HI=P 

9617 IF _PP>P_THEN LET _HI=PF 

9628 PRINT AT 6,2; "SIE HABEN SoE 
BEN MIT ";HI;AT 8,2; "PUNKTEN EIN 
EN NEUEN „Bekönp"; AT 18,2; "ERSTEL 
LT." ;AT ‚2;"B 

EN NAMEN "Ein AT 14,2; "BIS MAX. 
9625 IF P=HI _THEN INPUT A%$ 

EoEeR IF Pechr THEN LET A$="ScHLa 
9527 IF LEN A$>32 THEN G0T0 Be=B 
sea PRINT AT 15, (32-LEN As) 72; A 


dsıo GOTO_9555 
9558 PRINT en ö, gern "SIE HABEN LEI 
DER NUR ";P; A 8,2; "PUNKTE.DIES 


CORDINHABER IST:";AT 14, (32-LEN 
er JAS;AT 16, 8; "Nar ";HI;" PUN 


9655 FOR _N=1 TO 18 
9655 NEXT_N 
S652 PRINT AT 21 


ar IF INKEY$<>"" THEN GOTO 913 


9532 COTO 3578 

99398 CLS 

9992 PRINT AT 8,32; "STARTEN SIE D 
AS_ BAND MIT arı ‚2; "PLAY UND 

Bess, UND IT 12, 2; "DRUECKEN sI 


DANN TEE. ' 
Sat" Ar INKEYS$=SCHR$ 118 THEN 50T 
393” Sara 3334 


9993 SAVE "BOxXEM" 
3999 GS0OTO 3133 
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Nach dem Starten des Programmes, 
wird der Spieler zunächst nach seinem 
Namen gefragt, und’auf eventuelle Fol- 
gen von Falschaussagen während des 
Programmes hingewiesen. 

Danach folgt die Eingabe des 
Geschlechts. 

Dies hat die Funktion, um bei einigen 
der späteren Fragen prüfen zu können, 
ob die Eingabe korrekt war. 

Danach folgen die einzelnen Fragen, 
die selbstverständlich auch falsch be- 
antwortet werden können, nur wird der 
Befragte auf Falschaussagen des öfte- 
ren eine gepfefferte Antwort erhalten. 
Nachdem alle Fragen beantwortet wur- 
den, plottet der ZX-81 das Wort Urteil” 
in Großschrift auf den Bildschirm 
(siehe auch Beispielsausdruck). 
Danach erfolgt die Auswertung, die 
sich aus den gegebenen Antworten 
berechnet. 

Sollte sich noch jemand testen wollen, 
oder der Befragte Lust bekommt, sich 
den Fragen nochmal zu stellen, so be- 
steht die Möglichkeit eines Neustarts. 


Noch ein Hinweis: 

Die MC-Programme, die dem Pro- 
gramm vorangestellt sind (Zeile 1 bzw. 0) 
kann man auch in eigene Programme 
einbauen. Dies sind im einzelnen ein 
Programm zum Bildschirminvertieren 
(Startadresse - 16582), ein Programm 
zum schnellen Löschen des Bild- 
schirms (Startadresse - 16604), ein 
Programm das den gesamten Bild- 
schirminhalt um eine Zeile nach oben 
scrollt (Startadresse - 16561) und ein 
Programm, welches dasselbe nach un- 
ten bewirkt (Startadresse - 16514). 


Dazu noch eine Warnung: 

In einem Programm, in dem der Befehl 
SCROLL vorkommt und der Fast-CLs 
verwendet werden soll, muß der Scroll- 
befehl durch die MC-Routine ersetzt 
werden, da der Computer sonst 
aussteigt. 


Eingabereihenfolge: 
Um das Programm Lebenswandeltest 
einzugeben, tippen Sie zunächst fol- 
gendes ein: 

1 REM 111 beliebige Zeichen 

Als nächstes geben Sie das "Programm 
zur Eingabe der MC-Programme” ein. 
Nachdem Sie dieses Programm ge- 
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Codes für die MC-Unterprogramme 
der Reihenfolge nach ein. Sollte da- 
nach die Meldung "FEHLER - BITTE 
ÜBERPRÜFEN” auf dem Bildschirm 
erscheinen, so haben Sie an irgendei- 
ner Stelle eine falsche Eingabe gemacht 
und müssen diese mit dem Fehlersuch- 
programm, was sofort startet, finden. 
Wenn Sie die Adresse gefunden haben, 
in der ein falscher Wert steht, so geben 
Sie ein: POKE Adresse, richtiger 
Wert. 

Nachdem Sie dies getan haben, 
speichern Sie das Programm sicher- 
heitshalber auf Kassette. 

Als nächstes überprüfen Sie die MC- 
Unterprogramme mit folgenden Be- 
fehlen: 

RAND USR 16514 

RAND USR 16561 

RAND USR 16582 

RAND USR 16604 

Folgendes sollte passieren: Nach je- 
dem der ersten beiden Befehle sollte 
sich auf dem Bildschirm nichts verän- 
dern und unten links 0/0 erscheinen. 
Nach dem dritten Befehl sollte der Bild- 
schirm schwarz sein und unten links 0/ 
0 stehen. 

Nach dem vierten Befehl sollte das- 
selbe passieren wie bei den beiden 
ersten. 

Sollte irgendetwas davon nicht ge- 
klappt haben, so laden Sie das vorher 
abgespeicherte Programm, starten es 
‚mit GOTO 120 und suchen nach weite- 
ren Fehlern. 

Wenn sich kein Fehler im MC- 
Programm mehr befindet, löschen Sie 
die Zeilen 10 - 150 und geben POKE 
16510,0 ein. 

Damit hat die Zeile mit dem MC- 
Programm die Nummer 0 und kann 
nicht mehr gelöscht werden. 

Nun können Sie ab Zeile 5 das Pro- 
gramm ”Lebenswandeltest” eingeben. 
Dieses wird mit RUN gestartet. 


Variablenliste: 
AS, C$, E$, F$, H$ = String für 
Laufschrift im Vorspann 

J$ = Plotposition für ”Urteil” plotten 
K$ = String, aus dem die Punkte gele- 
sen werden. 

G$ = Speichert, ob männlich oder 
weiblich 

R$ = Abfrage (J oder N) 


ent 


IN 


| 


„ 


PA) 


B$ = Abfrage (J oder N) 

M$ = Gerade gestellte Frage 

N$ = Ja/Nein-Entscheidung bei 
Fragen 

INV = Startadresse für Bildschirm- 
invertierer 

FCLS = Startadresse für FAST CLS 
DSCR = Startadresse für Down- 
scrollprogramm 

USCR = Startadresse für Upscroll- 
programm 

L = Punktzahl 

EIN = Sprungadresse für Eingabe- 
unterprogramm 

I = Zeiger auf zu lesende Punktzahl 
in K$ 

P = Y-Koordinate für ”Urteil” plotten 
D = X-Koordinate die aus J$ gelesen 
wird 

LL= Kurze Pause _ 

D$ = Leerzeile zum Überschreiben 


Die Zählvariablen der Schleifen wur- 
den nicht erwähnt. 


Programmaufbau: 

0 = MC-Programme 

5-35 = Copyright 

40-230 = Variableninitialisierung 
240-530 = Vorspann 

540-560 = Namenseingabe 

570 = Unterprogrammaufruf 

580-600 = Unterprogramm zum Na- 
men drucken 

610-700 = Fragenausdruck und 
Punktberechnung 

710-1700 = Fragen 

1710 = Überprüfung der Antwort auf 
diese Frage 

1720-1730 = Letzte Frage 

1740-1750 = Unterprogrammaufrufe 
1760-1900 = Auswertung 

1910 = Sprung zu ”Ende” 

1920-2970 = Unterprogramm "Urteil 
plotten” 

2980-3150 = Abfrage des Geschlechts 
und. ”Hinweis” 3 

3160-3730 = Kommentare zu Ant- 
worten 

3740-3870 = Ausgabe des Testergeb- 
nisses 

3880-4090 = "ENDE” und Abfrage 
ob Neustart i 

4100-4110 = Abspeichern 
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Beer, 
goR T= issıe, ‚To 16524 STEP 5 
RINT 3 
FOR \=0" To a 
IF 1308 =15524 THEN G0TO 118 


xT 
TE A«39ass THEN "DATA 


PRINT 
FEHLER - FRUEFSUMME "; A 


SER TER RENTE FE 


PRUEFSUMME - 9435 
»...111 ZEICHEN...» 
a ne 
Y 


3228 ALFELD/L. 
E22 227 2 2 2 2 2 22 22 2 2 2 2 22 


M 
INU CE 


FCLS=156984 
DSCR=16514 
USCR=16561 


LET .J 8506192735363738394 
oalgaa7SaBsses7sgsaen 61" 

148 LET J$=J$+"8118121314151622 
23242526272829393132353637353940 
eier 

ET K$="99737165636353598474 
54544404053303338373098335 120242 
92929232625252423212020201919181 
u ea 


+As+A 
A + K SOFTWARE " 


i- dog 
LEBENSUANDEL-TEST 
COPYRIGHT BY <- <- GUID 
0 AHLSWEDE UND  HOLGER KUEHLE < 
= <- - BITTE EINE TASTE DRUECKE 
N <& ea a en Fe 
228 LET F 


230 LET F 

240 REM 

258 FOR N=LEN F$-31 TO 1 STEP - 
1 


PRINT AT_8,0; En TO N+31); 
er EEE TO’N+32) 


FOR N=1 TO_15 
RAND USR DSCR 
RAND USR USER 
NEXT_N 
FOR 5=1 TO _ LEN H$-31 
Bene USR Ducs 

RINT AT 8,8;H$(5 TO 5+31) 
TE TNKErS ern THEN G0OTO 388 
NEXT 5 


c0T0 328 
BeNDn USR_FCLS 

OR N=1_ TO 32 
PRINT AT 18, = AS{N TO N+31 
RAND USR DSC! 
NEXT N 
FOR N=32 TO 1 STEP -1 
PRINT AT 18,8;A${N TO N+31) 
NEXT N 
FOR N=1 TO 11 


RAND USR USCR 
NEXT N 


RAND USR_FOLS 
FOR N=1 TO 4 
„RRINT AT 8,8;A$(1 TO 32) ;AT 
"+ttrrE LEBENSUANDEL- TEST # 
arirsen 
528 NEXT_N 
_530, „PRINT " 


"Sao PRINT_AT 3,3; "BI 
DES SNDHEN EIN.” 
INPUT L$ 
PRINT AT 3,3;D$ 
GOSUB 2388 
PRINT AT 3,0;D$ 
PRINT AT 4, (16-(LEN L$72)1; 


SoTo_718 
128,8 Te 
iss NPRUECKE BA oO 
an IF CODE INKEY$ THEN G0T0 63 


548 LET N$=INKEY$ 
858 _IF er AND N$<>"N”" THEN 


="J" THEN LET L=L+VAL 


LET M IST IHR EHEPARTNER 
seron TOD?“ 


GO5SUB EIN 
LET M$="LEBEN SIE IN SCHEID 


GOSUB EIN 
LET M$="HABEN SIE HARTE DRO 
AUFGEGEBEN" 


G05UB EIN 
IF _N$="N" THEN GOSUB_ 3168 
EEt 


I 
="HABEN SIE SCHON EIN 
GEFAENGNISSTRAFE VE 


G05UB EIN 
LET _M$="IST IN LETZTER ZEIT 
NAHER VERWANDTER GESTORB 


GOSUB EIN 
LET M$="5IND SIE VERLETZT 0 
DER KRANK"+DS 
sa Deuts EIN 
N$="J" THEN GOSUB 35398 
Ler Mm SIND SIE VERHEIRATE 
GERN EIN 
898 LET M$="SIND SIE ENTLASSEN 
/_ ARBEITSLOS" 


s22 ea: EIN 
SE SIE EINE GLUE 


LET Asz"SınD SIE RENTNER" 
Bes G0O5UB EIN 

LET M$="IST EIN FAMILIENMIT 
sczEo KRANK" 

GOSUB E 

LET HsznSınD SIE SCHWANGER" 


GOSUB EIN 
[:J 25 nes AND G$="M" THEN 6 
4 


RAUCHEN SIE WENIGER 


IN 
1820 M$="HABEN SIE GESCHLECH 
TERROBLENE" 


1939 GOSUB EIN 
1848 IF N$="J" THEN GOSUB 3328 
1858 LET M$="HABEN SIE KINDER" 
1858 GOSUB EIN 

Irr M$="HABEN SIE EINEN NEU 


1838 GOSUB EIN 

10898 LET M$="VERDIENEN SIE MEHR 

ODER WENIGER ALS FRUEHER" 

1188 G505UB EIN 

1118 LET M$="IST EINER IHRER NAE 
HEREN FREUNDEGESTORBEN" 

1128 GOSUB EIN 

1138 LET N$="HABEN SIE IHREN ARB 

EnLaTz SCHON EINMAL GEWECH 
SELT" 

1148 GOSUB EIN 

1158 LET M$="STREITEN SIE SICH O 
FT_NMIT_ IHREM PARTNER" 

1158 GOSUB EIN 

117@ LET M$="HATTEN SIE IM LETZT 
EN MONAT ZERREISSPROBEN" 
1138 GOSUB EIN 

1198 LET M$="IST IN LETZTER ZEIT 
Ber IHNEN ETUAS GEPFRENDET WO 
RDEN" 


1288 GOSUB EIN 
1218 LET N$="PFANDGUT IM WERTE UV 


DON _UEBER 898.888 DM" 
1228 G0SUB EIN 
1238 LET M$="HABEN SIE EINEN MEH 
R ODER WENI- GER VERANTUORTUNGSV 
OLLEN POSTEN ALS FRUEHER" 
1248 GOSuB sl 
1258 PRINT AT 
1258 LET Ms ZAEHLEN> SIE SICH ZU 
R_OBERSCHICHT" 
1278 GOSUB EIN 
1288 LET N$="HAT EINES IHRER KIN 
DER EINE EI- GENE WOHNUNG" 
1290 GOSUB EIN 
1388 LET M$="HABEN SIE EONENTAN 
HENGER MIT DEM GESET. 

318 e=klE EIN 

ET M$="SEHEN SIE GUT AUS 


Sösus"E EIN 
" THEN GOSUB 3438 
ARBEITET IHRE FRAU" 


="SIND IHRE _LEBENSVER 
ANDERS ALS FRUEHER" 
1488 GOSUB EIN 
1418 LET STREaRE en PERSDENLI 
CHE EIGEN- ARTE! 


1458 LET N$="RAUCHEN SIE WENIGER 
ALS 48 _ZIGA-RETTEN PRO TAG 

1458 GOSUB EIN 

1478 LET M$="HABEN SICH IHRE ARB 
EITSBEDIN- GUNGEN GERAENDERT" 
1488 GOSUB EIN 

1498 LET M$="HABEN SIE SCHON MAL 
DIE EOENENG EREUEENSBIETE 

1598 GOSUB 

1518 LET Ass"nABEN SIE FRUEHER E 
INMAL DIE SCHULE GEWECHSELT" 
1528 GOSUB EIN 

1538 LET M$="ERHOLEN SIE SICH HE 
UTE_ ANDERS ALS FRUEHER" 

1548 GOSUB EIN 

1558 LET M$="HAT SICH DIE ANZAHL 
PEuBER KIR- CHENBESUCHE GERENDE 


1568 GOSUB EIN 

1578 LET M$="BETRETIGEN SIE SICH 
IN IHRER FREIZEIT SOZIALHELF 

ERISCH" 

1582 GOSUB EIN 

1598 LET M$="VERDIENEN SIE WENIG 

ER ALS 38.888 DM PRO JAHR" 
1688 GOSUB EIN 

1618 LET M$="HABEN SIE IHRE SCHL 

AFGEWOHNHEI- TEN GEAENDERT" 

1628 GOSUB EIN 

1638 LET M$="TREFFEN SIE SICH HA 

EUFIS MIT ANDEREN FAMILIENHIT 


1642 GOSUB EIN 

1658 LET N%$="HABEN SIE IHRE ESS56G 
EUOHNHEITEN _VERAENDERT" 

1658 GOSUB EIN 

Bra n M$="FAHREN SIE IN DEN U 
1598 GOSUB EIN 

15698 LET M$="IST ES WEIHNACHTEN 


1708 GOSUB EIN 
1718 GOSUB 3618 
1728 LET M$="HABEN SIE SCHON EIN 


MAL DAS GESETZ GERINGFUEGIGS 
VERLETZT" 

1738 GOSUB EIN 
1748 GOSUB 3748 
1758 GOSUB_ 1328 
1768 REM 

1778 PRINT AT 8,8; s3s+ + + 
FEETTERFRERFERTERRRN 

1788 IF L<385 THEN PRINT AT 2,8; 


AND L:788 THEN PRI 
on AT 2, 8. "gie HABEN DIE CHANCE 
ON = PROZENT, DASS SIE 
BesunD- IEITS- ODER SICHERHEI 
TSPRÜBLEHE BERONNEN. ee. 
1818 IF L>384 AND L<788 THEN PRI 
NT ‚‚"DAS IST EIN GUTER WERT, AL 
so WIRD DAS STERBEN NOCH EINE 
ZEIT-LANG DAUERN. 
1828 IF_L>599 AND L<1888 THEN PR 
Sn AT 2,8; "SIE HABEN DIE CHANCE 
5i_ PROZENT, DASS SIE 
SESUNDHEITS- ODER SICHERHEITSPR 
ÜBLEHME BE- KOHMMEN.ALSO BERUHIGE 
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N SIE SICH SCHON." 
1830 IF L>999 AND L<1388 THEN PR 
INT AT 1,8, "z#+2+#2+20H0#+#++#++++5IE 
H DAzsss#32 423 2 HH 81 1 1 1 1 1 1 1 1 + 
222272 2722223 
SIE HABEN NUN DIE es 

OSSE CHANCE VON 79 PROZENT, DAS 

SIE GESUND-HEITS ODER SICHERHET 
TSPROBLEME BEKOMMEN.GEBEN SIE N 
ICHT AUF. SEIEN SIE EINFACH vo 
RSICHTIGER UND FUEHREN SIE EIN 
RUHIGERES LEBEN, SONST WIRD IH 
RE PUNKTZAHLNIE SINKE N. 
1848 IF L>1239 THEN PRINT AT 8,28 
LUFSEERSIHESESSREFESFRFE EFF 


I er L>1299 THEN PRINT AT 2,1 
; 15," au H 15 "SAT 


AT #;aT 7 
15; Far 8, SE 
1858 I Prasss THEN PRINT "#z#2= 
EFESELISCHEISFEHTFEFTFE Er" 
ae IF L>»1299 THEN PRINT AT 8,1 


L$ 
3558 IF _L>12393 'THEN PRINT AT 12, 
8; "BEI IHREM LEBENSUANDEL GEBE I 
CH IHNEN HOECHSTENS NOCH 3 TAGE. 
"3," SELBST WENN SIE SICH IN IHR 
EM" ,"ZIMMER EINSCHLIESSEN HABEN” 
\SIE KAUM EINE UEBERLEBENSCHAND 


1898 PRINT AT 21,0; "BITTE EINE T 
ASTE DRUECKEN" 
199@ IF NOT CODE INKEY$ THEN G0T 
0_1928 

GOTO_ 3332 

REM 


RAND USR INU 

PRINT AT 3,8;E$ 
PRINT AT_18,8; 

FOR J=1 TO 21 

LET D=VAL J$( TO 2) 
UNPLOT D,P 

Dee J$i3 TO) 


=1 TO 28 
ee To 2) 


To) 


J= 28 
UNPLOT 1,J 
NEXT J 
FOR J=28_TO.13 
UNPLOT 47,4 
NEXT J 
FOR J=13_TO 28 
en 27,4 
NEXT 
FOR Ys 35 TO 42 
UNPLOT 4,21 
NEXT J 

13 


UNPLOT 18,J 
NEXT U 

FOR J=28 TO 12 
UNPLOT 54,J 
NEXT J 


18,15 


N SIE SICH SCHON." 

1538 IF L>333 AND L<1388 THEN PR 
INT AT 1,8; "z+223+#20H0=#+#2++=5IE 
H DEE Er PFEFFER 


E22 227222227 
SIE HABEN NUN DIE GR 
DSSE CHANCE VON 79 PROZENT, DASS 
SIE GESUND-HEITS ODER SICHERHEI 
TSPROBLEME SEKOMMEN.GEBEN SIE N 
ICHT AUF, SEIEN SIE EINFACH UDO 
RSICHTIGER UND FUEHREN SIE EIN 
RUHISERES LEBEN, SONST WIRD IH 


RE PUNKTZAHLNIE SINKEN." 

1848 IF L,»1293 THEN PRINT AT 2,8 
REES 2252222 5 25 2222227222225 
1558 IF ae IHEN PRINT AT 2,1 
5, ‚ATS WAT 4,1 T 


;AT 6 
sat EHE u ;AT_ 9,1 

issa Ir L» 1283 THEN PRINT 

FEFFEFFSEFeF re HEHE 

Bee IF L>12933 THEN PRINT AT 8,1 


;L$ 
1553 IF_L>1299 THEN PRINT AT 12, 
8; "BEI IHREM LEBENSWANDEL GEBE I 
ER IHNEN HOECHSTENS NOCH 3 TAGE. 
‚\SELBST WENN SIE SICH IN IHR 
‚ZIMMER EINSCHLIESSEN HABEN" 
este KAUM EINE VEBERLEBENSCHAND 


1398 PRINT AT 21,8;"BITTE EINE T 
ASTE DRUECKEN" 
ds08 IF NOT CODE INKEY$ THEN 50T 
0 _ 1928 

SOTO_ 3532 

REM 


RAND USR En 
PRINT AT 3,8; Ai 
PRINT AT 38° S;E$ 
FOR J=1 TO 21° 

LET AL J$(t TO 2) 
UNPLOT D,F 

BE Sc =J$i3 TO) 


LET AL 
UNPLOT D,P 
Be rm J$i3 


For a =15 TO 
UNPLOT 1,J 
NEXT J 
FOR J=23_ TO 
UNPLOT 47,J 
NEXT J 
FOR J=i13_TO 
UNPLOT 27,4 
NEXT J 


UNPLOT i2,J 
NEXT 4 
FOR J=2i TO 
UNPLOT 54,J 
NEXT J 


UNPLOT 


FOR F=i1 TO 58 
NEXT F 


FOR N=12 TO 21 

PRINT AT N,B;D$ 

NEXT N 

RETURN 
R PRINT AT 18,8, "SIND SIE GAN 
Z SICHER ?" 


KEYS 
AND B$<>"J" THEN 


3518 PRINT AT 12,0;D$ 
3522 RAND USR IND 
3539 IF 8$="N" THEN „PRINT "ICH H 
AB ES DOCH SEWUSST 
3548 IF B$="J" THEN G0T0 3488 
35580 IF PEEK_ IiPEEK 1563956+2 SREE 
=123 THEN BEND INU 
58 PRINT AT 15,8;D 
FOR _N=1 TO 58 
NEXT_N 
PRINT AT 11,0;D$ 
RETURN 
IF N$<>".J" THEN RETURN 
8 PRINT AT 18,8; "WEIHNACHTEN 
IST ES NUR AN DREI TAGEN IM JAH 
R, UND SIE WOLLEN MIR ERZAEHLE 
N DAS WIR HEUTE DEN 24., 25, 
ODER 25. DEZENBER HABEN", ,,,"A 
BER _ ES GIBT LEUTE DIE GEISTIG N 
ICHT 50 _ AUF DER HOEHE SIND" 
3638 PRINT AT 15,08;0$ 
3548 PRINT AT 21,4;"BITTE TASTE 
DRUECKEN 
A NOT CODE INKEY%$ THEN GOT 


3658 RAND USR FÜLS 

3578 RETURN 

3698 PRINT AT 15,8;D$ Yuod 
3698 _ PRINT _AT_18,8; "ICH WUENSCHE 
IHNEN GUTE BESSE- RUNG SPIELEN 
SIE MEHR MIT_MIR." 

3788 FOR _N=1 TO 45 

3718 NEXT_N 

3728 PRINT AT 18,0;D3$;D% 

3738 RETURN 

3748 REM 

3758 RAND USR FÜLS 

3758 RAND _USR INV 

377@ PRINT AT 18.0: 


3738 FOR A=1 TO 9 
37938 NEXT A 
zorn PRINT AT 13,14," ";L5" 


3Sıo PRINT AT 21,0; 


3928 RAND USR USCR 

38332 RAND USR_DSCR 4 
3848 IF NOT CODE INKEY$ THEN G0T 
0 _ 3328 

3358 RAND USR INU 

3858 RAND USR FÜELS 


PUNK 


3398 RAND USR 
3988 FRINT AT 


IE 


3918 RAND NU 

3928 PRINT AT 21,1; "WOLLEN SICH 

NOCH MEHR TESTEN? 

3938 LET LL=AND+=RND 

3942 PRINT AT 21 POLLEN SICH 1 
THEN 50T0 398 
THEN G0T0 424 


EEE! IF INKEY$ 
nn IF INKEY%$ 


3978 G0TO 3928 
ae 

3998 PRINT AT N,8;"<< NEIN 
er NE NEIN <<" 


Fön une 1 TO 4E4 
RAND USR INU 
NEXT N 

stor 

RAND USR_FOLS 


4858 RAND hen IN! 

4878 IF NOT Bose INKEY$ THEN G0T 
0 4258 

4038 RAND. USR FÜLS 

48398 G0TO 332 

3993 SAUE "LEBENSWANDELTESE" 
3939 RUN 
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TERMIN-Kalender in 
CPU 


Name der Veranstaltung 


Computertage ’84 
Computertage ’84 

4. Commodore-Fachausstellung 
Elektronik-Comp.-Tage Saar 
12th ZX-Microfair ’84 
Computertage ’84 
Computertage ’ 84 

Fachtagung d. Ges. f. Informatik 
Photokina ’84 

Computertage ’84 
Hobby-Elektronik ’84 
Computertage Hückelhoven 
Hobby + Elektronik '84 
Computertage ’84 
Computertage ’84 

Bayerischer Computertag 
Computertage ’84 

Hessischer Computertag 
Computertage ’85 
Computertage ’85 
Microcomputer ’85 
Computertage ’85 
Computertage ’85 
Computertage ’85 
Computertage ’85 
Computertage ’85 

Computer & Communication ’85 
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31.08. - 02.09.84 
02.09. - 04.09.84 
06.09. - 08.09.84 
07.09. - 09.09.84 
nur 08.09.84 
14.09. - 16.09.84 
22.09. - 24.09.84 
08.10. - 10.10.84 
10.10. - 16.10.84 
12.10. - 14.10.84 
17.10. - 21.10.84 
20.10. - 21.10.84 
15.11. - 18.11.84 
15.11. - 18.11.84 
23.11. - 25.11.84 
nur 02.12.84 
03.12. - 05.12.84 
nur 09.12.84 
08.01. - 10.01.85 
16.01. - 18.01.85 
29.01. - 03.02.85 
22.02. - 24.02.85 
28.02. - 03.03.85 
15.03. - 17.03.85 
03.05. - 05.05.85 
03.05. - 05.05.85 
15.05. - 19.05.85 


Kaiserslautern 
Göttingen 
Frankfurt/M 
Saarbrücken 
London 
Hagen 
Duisburg 
Berlin 

Köln 

Siegen 
Stuttgart 
Hückelhoven 
Wien 
Ludwigshafen 
Fulda 
München 
Heidelberg 
Neu-Isenburg 
Heilbronn 
Wesel 
Frankfurt/M 
Recklinghausen 
Oberhausen 
Mainz 
Bochum 
Mönchengladb. 
Sindelfingen 
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Nun müssen wir uns einmal 
um den Speicheraufbau des 
Spectrums kümmern. Wie 
auf Seite 24 des englischen 
Handbuches zu erkennen ist, 
beginnt der Bildschirm- 
bereich ab Adresse 16384 
und geht bis 22527. Dieses 
kann man leicht verdeut- 
lichen. Geben Sie die folgende 
Befehle ein: 

Randomize USR 0 ENTER 
POKE 16384,255 ENTER 
Nun sehen Sie, daß in der 
linken. oberen Ecke ein 
schwarzer Strich ist. Übri- 
gens: Randomize USR 0: 
führt einen Kaltstart aus; d.h. 
der Rechner ist danach in 
dem Zustand, indem erwäre, 
würde er frisch angeschaltet 
werden. Der Befehl POKE 
13684,255 bedeutet, daß in 
der Speicherstelle 16384; also 
in die 1. Bildschirmadresse 
eine 255 gebracht wird; es 
sind also alle 8 Bits dieser 
Speicheradresse gesetzt. Je- 
des Bit des D-Files (Bild- 
schirmspeicher) ist ein Punkt. 
8 nebeneinanderliegende Bit 
sind ein Strich (1111 1111 = 
FF= 255). Wollen wir nun 
eine unterbrochene Linie ha- 
ben, (z.B. 1110 0111 = E7= 
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231) so führen wir einfach 
folgenden Befehl aus: 

Poke 16384.231 
Für den Spectrum gibt es 
noch einen Bereich, der uns 
interessiert: Es ist der Basic- 
Anfang. Normalerweise fängt 
dieser bei 23755 an. Es kann 
aber z.B. durch Anschluß 
von Microdrives dieser ver- 


1 Programm 


*# 
rn 
2.Programm 


. für den pectrum 


—_ | 
| 


Teil 


schoben werden. Um sicher 
zu gehen, können wir die Sy- 
stemvariable PROG abfra- 
gen. Dort ist in 2 Bytes die 
Adresse gespeichert: Diegeht 
folgendermaßen: 

PRINT PEEK 23635 + 256* 
PEEK 23636 

Die 1. beiden Maschinen- 
programme 


Was bedeuten nun die einzelnen 
Spalten: 

Spalte 1: Sie gibt an, ab 
welcher Speicherstelle die 
folgenden Befehle abgelegt 
werden 

Spalte 2: Dieses ist der Ma- 
schinencode. Er gibt die 
Bytes hexadezimal an. 
Spalte 3: Dieses ist nur eine 
Zeilennummer, die aber in 
Assemblerprogrammierung 
nicht verwendet werden 
kann, Sie hilft nur bei der Er- 
stellung, um z.B. Zeilen ein- 
zufügen, zu löschen oder zu 
editieren. 

Spalte 4: Diese zur Zeit freie 
Spalte ist eine Labelspalte. 
Dort kann man einen Na- 
men angeben, zu dem später 
gesprungen (ähnlich wie 
GOTO) werden kann. 

Spalte 5: Dieses sind die ei- 
gentlichen Assemblerbefeh- 
le. 

Spalte 6: Zu den meisten As- 
semblerbefehlen gehören 
noch ein oder zwei Operan- 
den. Diese werden hier 
angegeben. 

Nun zu der Erklärung derbei- 
den Programme. Wir bdach- 
ten nur Spalten 4,5 und 6. Da 
4 frei bleibt, interessiert uns 
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nur Spalte 5 und 6. 


Zu Programm 1: 
Der 1. Befehl ORG 23760 ist 
eine Pseudoanweisung. Sie 
gibt dem Assembler (Um- 
wandler) die Anweisung das 
Programm so zu assemblie- 
ren, daß es ab Adresse 23760 
gespeichert wird. Dieser Be- 
fehl ist nicht Bestandteil des 
eigentlichen Programmes. 
Deshalb steht in Spalte 2 
auch keine Zahl. 
Nun der 2. Befehl: 
Das LD bedeutet Lade. Nun 
was soll wohin geladen wer- 
den. Bei Z-80 Assembler wie 
bei den meisten anderen As- 
semblern, ist der erste von 
zwei Operanden immer das 
Ziel. Der Zweite gibt an, wo- 
her etwas kommt, d.h. der 
Befehl bedeutet Lade 16384 
(4000 Hex) in das Doppelre- 
gister HL. In Register H sind 
dann 40 Hex enthalten das 
Register L 00. 
3. Befehl LD (HL),231 
Das LD kennen wir schon. 
' Doch was bedeutet nun die 
Zieladresse (HL): Es be- 
deutet, daß HL nicht das 
Zielregister ist, sondern daß 
in Register HL eine Zahl 
steht, die als Zieladresse ver- 
wendet wird (indirekte Adres- 
sierung). Es soll also eine 231 
in die Adresse geladen wer- 
den, die das Hl-Register (= 
16384 siehe letzter Befehl) 
angibt. 
4. Befehl RET 
Dieses ist ein sehr wichtiger 
Befehl. Er entspricht dem 
Basic-Befehl RETURN. 
Wenn wir ihn weglassen, 
kann man als fast sicher an- 
nehmen, daß nach Starten 
dieses Programmes. der 
Spectrum zwar alles was wir 
von dem Programm ver- 
langten ausführen würde, 
aber nach Beendigung seiner 
Aufgabe würde er keinen Be- 
fehl erhalten, der ihm sagt, er 
wäre fertig und so würde er 
die folgenden Bytes ebenfalls 
als Befehl erkennen und Un- 
sinn produzieren. 
Danach stehtnoch ein END: 
Dies ist wieder ein Pseudo- 
Befehl. Er sagt dem Assemb- 
ler (Umwandler), daß hier 
seine Aufgabe beendet ist. 
Das folgende # 5DCE sagt 
mir nur, daß dieses Maschi- 
nenprogramm zur Zeit noch 
ab Adresse SDCE (= 24014) 
gespeichert ist. Es ist nicht 
wichtig für uns dies zu wis- 
sen. Dieses Programm leistet 
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also folgendes. Es speichert 
in die Adresse 16384 eine 231. 
Dieses Assemblerprogramm 
hat also drei Befehle. Wieso 


können jetzt 3 Befehle in As- 


sembler schneller sein als 1 
Befehl in Basic. Nun das ist 
einfach zu erklären. Der Z-80 
des Spectrums schafft etwa 
875.000 Rechenoperationen pro 
Sekunde. Da der Interpreter 
des Spectrums den ent- 
sprechenden Pokebefehl erst 
erkennen, dann umsetzen 
und dann ausführen muß, 
spart man an Zeit das Erken- 
nen und das Umsetzen. Da- 
gegen spricht jetzt, daß man 
das Maschinenprogramm 
mit einem Basic-Befehl auch 
erst einmal starten muß. 
Dieses kostetja auch Zeit. Da 
haben Sie recht, aber wollten 
wir z.B. einen 2. oder3. Basic- 
befehl gleich mit in Maschi- 


S 
18 schin 
_am_fich 
il RANDOMIZE U 
Was macht nun dieses 
Programm: 


Die erste Zeile ist dazu da, das 
Maschinenprogramm abzu- 
speichern 

Die 2. Zeile berechnet die 
Speicherstelle der 1. Zeile 
hinter REM 

Die 3. Zeile beinhaltet den 
Hexcode des Maschinen- 
programmes 


nensprache schreiben, so 
stände den 3 Basicbefehlen 1 
Basicbefehl und 1 Maschi- 


nenprogramm entgegen. 
Und das wäre schon ein 
Zeitgewinn. 


Bevor ich jetzt das 2. MC- 
Programm erkläre, möchte 
ich Ihnen noch zeigen, wie 
man ein Maschinenpro- 
gramm auf dem Spectrum 
speichert. Es gibt zwei sinn- 
volle Möglichkeiten: 

1. In eine REM-Zeile am 
Anfang 

2. Man schafft sich durch 
Heruntersetzen des Ramtops 
im oberen Speicherbereich 
Platz und setzt es dorthin. 
Beide Möglichkeiten haben 
Vor- und Nachteile. Bei klei- 
nen Programmen wie un- 
serem bevorzugen wir die 1. 
Möglichkeit. Dazu das Pro- 
gramm in Basic: 


Programm 1 


Die 5.-9. Zeile Schleife zum 
Einpoken des Maschine 


programmes. 
Die 11. Zeile startet das 
Maschinenprogramm 


Nun zum zweiten Prog- 
ramm: 


Programm 2 


I HEN .„.:::; {hih, 86 Zei 

2 LET FROS=PEER 23635+ 
363645 

3 T Ape"SEETSIEBGSDCH" 

+ siehe Spalte 2 

5 sFROs TO PROG+S 

5 zicobE A$-43 

$ E A$i2)-45-7: 

2 

z% $i3 TO} 

5 : 

3 NEX i 
ig REM Maschinenprogramm steht 


ha 
109 


su 
RANDOH 


ze 


richtigen 


ort 
USR PROS 


Das ORG 23760 beachten 
wir nicht. Danach kommt LD 
A,231 .Es bewirkt, daß in den 
Akkumulator eine 231 gela- 
den wird. Danach das LD 
(16384),A. Dieser Befehl be- 
deutet, daß die Speicherstelle 
16384 mit dem Inhalt von A 
geladen wird (direkte Adres- 
sierung). Nun kommt wieder 
das unverzichtbare RET. 
Das Ergebnis ist gleich wie 
bei dem ersten Programm: 
nämlich die Speicherstelle 
16384 hat den Inhalt 231. Das 
Basic-Programm funktio- 
niert genau wie das 1. Daran 
sehen wir, daß genauso wiein 
Basic und allen anderen 
Computersprachen es ver- 
schiedene Lösungsmög- 
lichkeiten gibt. Welche die 
günstigste ist hängt von vie- 
len Faktoren ab und ist nicht 
allgemein zu beantworten. 
Falls Sie Fragen oder Anre- 
gungen zum besseren Ver- 
ständnis haben, schreiben 
Sie uns doch. 
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für den Bit 90 


Fluchtversuch 


WICHTIG: Geben Sie zunächst nur die Zeilen 1 bis 
4 ein und starten Sie dann das Programm mit’RUN’. 
Diese Zeilen erzeugen die Funktion SCRN(, 
während die Funktion LOG( nun nicht mehr funktio- 
niert. Die Funktion SCRN(x) errechnet den Wert 
(ASCH-CODE) des Zeichens, das an Bildschirm- 
position x (0 - 767) steht, wobei 0 die linke obere 
Ecke des Bildschirmes bezeichnet. 


LIST 
1 REM : ERST DIE ZEILEN 1-4 
TEN, DANN DEN REST 


2 POKE 29162,255:POKE 29163, 189: CLEAR ıRESTORE 4 


INGEBEN UND MIT "RUN" STAR- 
“ 


3 FOR 1=48640T0 486653:READ AsPOKE I,A: NEXT IıPOKE 28677,0: 


POKE 28678, 198 


4 DATA 83,67,82,78,40,197,9,190, 255,213, 229,205, 214,34, 235 


„205, 125,56, 205, 140,24, 225,209, 201 
10 REM 
20 TEMPO © 
30 M1$="F7C7F7A7+C9I+C7A7GTHATATGTFIRI" 
40 M2$="F7C7F7A7+C9+CIGBHASATGTFIRT" 
se  MS$="F7+DEHASHATRATHAHATEATHA7+D7+F7+D7+CIRT" 
68 _MAS="FBFSF7AT+C9+L7A7G7HATA7GIFIRI" 
78 MUSIC 1,-10,*,M1$,M2$,M3%,M4$: PLAY 
80 MUSIC 0,9,*,M1$,M26,M3$,MA$ı PLAY 
166 HOME zCALL SCREEN(I1DEPRIN " FLUCHTVERSUCH 


Sessssonssosseesenumnenen 


110 7"DU BIST DER ANFUEHRER EINER", "GRUPPE VON GEFANGENEN IN 


","EINEM SUPERMDDERNEN", , "GEFAENGNIS." 
120 ?:?"FUEHRE DEINE MITGEFANGENEN 
# AUS DEM GEFAENGNIS." 


MITTELS DES JOYSTICKS 


130 ?3?"ZUNAECHST FUEHRE SIE ZUM TOR DES KRANKENREVIERS, DE 


NN DORT IST EIN TUNNEL NACH DRAUSSEN. " 


140 ?:?"SICHERHEIT GIBT ES JEDOCH ERSTIM WALD. ":?:?"VERMEIDE 


DIE AUTOMATISCHEN WACHEN MIT IHREM KUGELHAGEL!" 
150 ?3?"BIT90-VERSION: ":?"ROLAND G. HUELSMANN"; 
180 IF JOYST( 1)=25560T0 180 


x 


Da die Spielregel im Programm enthalten ist, nur ein 
kurzer Hinweis zur Musikerzeugung: Benutzt wer- 
den die Kanäle 0 und 1 (Zeilen 70 und 80), wobei bei- 
de Kanäle ständig wiederholend die gleiche Melodie 
spielen. Während der eine Kanal (Lautstärke -10) ei- 
nen schnell abfallenden Ton erzeugt, erzeugt der an- 
dere Kanal (Lautstärke 9) einen orgelähnlichen Dau- 
erton. Beides zusammen klingt wie ein Dauerton 
mit deutlichem Anschlag. Man hört also, wenn zwei 
gleiche Töne hintereinander gespielt werden. Im 
Spiel selbst wird noch Kanal 3 benutzt, der Rausch- 


208  ESC=® 

210 MO=® 

220 ROW=18 570 FOR OP=12T0 15 

230 COL=24 580 CALL VCHAR(2,0P,40,3) 

248 HOME 590 CALL VCHAR(20,0P,40,3) 

250 CALL SCREEN (15) 686 NEXT OP 

260 CALL CHAR (103, "181818FFFF181818") 618 FOR PO=28T0 36 

270 CALL CHAR(104, "187C7EFFFFFE7CSB") 620 CALL VCHAR(2,PD,40,3) 

280 CALL CHAR(112, "0006081C241C1422") 630 CALL VCHAR(20,PD,40,3) 

290 CALL CHAR (41, "0000801818") 640 CALL HCHAR (8,19, 105) 

300 CALL CHAR (48, "FFFFFFFFFFFFFFFF") 650  CALL HCHAR(12,2,32,4) 

310 CALL CHAR(120, "FFFEFFFFFFFFFFFF") 660  CALL HCHAR(14,25,32,3) 

320 CALL CHRCOL(12,9,15) &70 NEXT PO 

330 CALL CHRCOL(13,12,0) 680 REM 

348 CALL CHRCOL(15,10,10) 690  TIME=96 

356 CALL CHREOL(14,5,0) 708 R=6 

355 CALL CHRCOL(16,6,4) 718 C=2 

366 FOR C=1T0 5 730 G0SUB 1030 

37@ CALL VCHAR(9,C,104,7) 786 CALL HCHAR(5,12,120) 

380 NEXT C 790 CALL HCHAR (17,15,120) 

390 CALL VCHAR (5,14,40,15) 8008 CALL HCHAR (6,24,120) 

400 CALL VCHAR (5,28, 40,15) 810 CALL HCHAR (12,27,120) 

418 CALL HCHAR (5, 15,40, 13) 828 CALL HCHAR (4,20,40,3) 

426 CALL HCHAR(19,15,40,13) 850 CALL HCHAR (ROW, COL,112) 

430 FOR C6=25T0 27 846 G=SCRN( 340) 

440 CALL VCHAR(14,C0,40,5) 850 IF G=11260TD 1840 

450 NEXT CO 860 GT=SCRN( 386) 

460 FOR CM=1ST0 21 870 IF GT=11260T0 1886 

476 _CALL VCHAR(13,CM,40,3) 880 GOSUB 1030 

480 NEXT CM 890 RANDOMIZE 

498 FOR 0=25T0 27 900  X=INTC RNDE 6) +1 

500 CALL VCHAR(6,0,40,5) 910 ON XGOSUB 1180, 1340, 1500, 1680, 1180, 1180 

510 NEXTO 920  K=JOYST( 1) 

520 FOR 0C=15T0 21 930 _ IF K=1G0T0 940ELSE G0TO 958 

530 CALL VCHAR(7,0C,40,3) 949 ROW=ROW-11GETSSERN( S2#ROW+COL): IF GET>S2G0TO F4SELSE GO 

540 NEXT 0OC TO 1018 

550 CALL HCHAR(10,21,40) 943 ROW=ROW+1:60TO 1810 

560 CALL HCHAR(10, 19,40) 950 IF K=560T0 960ELSE 60T 978 

966 ROW=ROW+1:GETSSCERN( 32#ROW+COL) IF GET>S2G0T0 96SELSE 60 

TO 1010 
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963  ROW=ROW-1:G0T0 1918 1420  CALL HCHAR (ROW,COL,32 
978 IF K=360T0 980ELSE GOTO 998 1430  MO=MO+1 
988 COL=COL+1:GET=SCRN( 32*ROW+COL): IF GET>S2G0T0 983ELSE GO 1448 CALL HCHAR(ROW,COL,S2) 
TO 1010 1450 ROW=18 
983 COL=COL-1:60T0 1910 1468  COL=24 
990 IF K=7G0TO 100BELSE GOTO 1018 1479 CALL VCHAR(7,24,32,12 
18608 COL=COL-1:GET=SCRN( S2#ROW+LOL):IF GET>32G0TO 1603ELSE G 1480 CALL HCHAR (ROW, COL,32) 
‚DTO 1018 1498 RETURN 
18683 COL=COL+1:60T0 1010 1500 REM #3 
1610 CALL HCHAR (ROW, COL,32) 1518 MUSIC 3,-15, "60": PLAY 
1020 GOTO 856 1520 CALL HCHAR(ROW,COL,112) 
1950 REM 1548 CALL HCHAR(12,15,41,12) 
1040 TIME=STIME-.5 1550  GC=SCRN( S2#ROW+COL) 
1050  CALL HCHAR(23,1,133,30-INT( TIME/3)) 1568 IF GC=4160T0 1570ELSE GOTO 1640 
1100 IF TIME=060T0 1120 1570  CALL HCHAR (ROW, COL, 120) 
1118 RETURN 1580 MUSIC 3,-15, "BOEOFOEOFOF®" PLAY 
1120 POKE 28687,2:POKE 28488, 6:PRINT "DU HAST ";MO;" GEFANGEN 1598 CALL HCHAR (ROW, COL,32) 
E VER- VERLOREN, WAEHREND ";ESC:?"FLIEHEN KONNTEN. " 1600 MO=MO+1 
1125  ?327:?"NOCH EIN"3?"SPIEL (J/N) ?" 1618 CALL HCHAR (ROW, COL,32) 
1130 IF INKEY$ ="J"G0T0 1@ 1620 ROW=18 
1148 IF INKEY$ '="N"HOME :BYE 1650. COL=24 
1156  GOTO 1130 1640 CALL HCHAR(12,15,32,12) 
11808 REM #1 166® CALL HCHAR (ROW, COL,32) 
1196 MUSIC 3,-15, "FO": PLAY 1670 RETURN 
1200 . CALL HCHAR (ROW,COL,112) 1680 REM #4 
1210 CALL VCHAR(6,12,41,13) 1690 MUSIC 3,-15, "BO"ıPLAY 
1220 GC=SCRN( 32#ROW+COL) 1700 CALL HCHAR (ROW,COL,112) 
1230 IF GC=4160T0 124®ELSE GOTO 1310 1710 CALL HCHAR(17,16,41,9 
1248 CALL HCHAR(ROW,COL, 120) 1728 GCL=SCERN( 32*ROW+COL 
1250 MUSIC 3,-15, "BOEOFOEOFOFO" PLAY 1730 IF GC=4160T0 1740ELSE G0TO 1810 
1268 CALL HCHAR(ROW,COL,32) 1748  CALL HCHAR (ROW, COL, 120) 
1270 MO=MO+1 1750 MUSIC 3,-15, "BOEGFOEOFOFO" PLAY 
1288 CALL HCHAR (ROW, COL,32) 1760  CALL HCHAR(ROW,COL,32) 
1290 ROW=18 1778  MO=MD+1 
13008 COL=24 1788 CALL HCHAR(ROW,COL,32) 
1318 CALL VCHAR(6,12,32,13) 1790 ROW=18 
1320 CALL HCHAR(ROW,COL,32) 1808 COL=24 
1330 RETURN 1810 CALL HCHAR(17,16,32,9) 
1349 REM #2 1820 CALL HCHAR (ROW, COL,32) 
1350 MUSIC 3,-15, "EO":PLAY 1850 RETURN 
1360 CALL HCHAR (ROW, COL,112) 1848 CALL HCHAR (ROW, COL,32) 
1370 CALL VCHAR(7,24,41,11) 1850 ROW=8:COL=13:G60T0 880 
1380  GC=SCRN( 32*ROW+COL) 1888 CALL HCHAR(12,2,32) 
13908 IF GC=41THEN GOTD 1400ELSE GOTO 1470 1900 MUSIC 2,15, "C9D9FF" PLAY 
1488 CALL HCHAR(ROW,COL, 120) 19208 ROW=18:COL=24:ESC=ESC+H1:60T0 830 
1418 MUSIC 3,-15, "BOEOFOEOFOFO":PLAY 90008 END 


An GPU 


Name und Adresse 
Fuldaerstraße 6 
3440 Eschwege 


Unterschrift 


——— ne ee 


Auftrag für Gelegenheitsanzeigen in GPU 


Abo.-Nr. 


Ich zahle sofort nach Rechnungserhalt 


Unter der Rubrik “Kleinanzeigen” 
veröffentlichen wir Gele- 
genheltsanzeigen für Verkaufsan- 
gebote, Kauf- und Tauschgesuche, 
Kontaktaufnahme bzw. Erfah- 
rungsaustausch usw. 


Ich wünsche folgenden Text zu veröffentliche: 


Preise für ‘Kleinanzeige 
Private Kleinanzeige je Druckzeile 


5,- DM inkl. MwSt. Chiffregebühr je 
Anzeige 10,- DM. 


Gewerbliche Gelegenheitsanzeige 
je Druckzeile 10,- DM inkl. MwSt. 
(dürfen nicht unter Chiffre er- 
scheinen). 


Gewerbliche Gelegenheitsanzeige 
in der Kombination 
CPU/Homecomputer je Druckzeile 
15,- DM 

(Chiffre nicht möglich). 


Zutreffendes ankreuzen suche DO] Software 
biete an DI Software 
suche D) Hardware 


biete an DI Hardware 


DO Tausch 

DO Kontakte 

O Verschiedenes 
DO Chiffre 


Oktober 1984 CPU 69 


Wörterbuch 


MAGNET BUBBLE MEMORY 4 

ist die gebräuchliche englische Über- 
setzung für den Magnetblasen- 
speicher (vgl. auch dort). 


MAGNETBLASEN-SPEICHER. 

Da Bit und Bytes in großen Mengen be- 
nötigt werden, andererseits aber nicht 
umsonstzu haben sind, istman seitlan- 
ger Zeit auf der Suche nach Speicher- 
arten mit besonders günstigem Preis-/ 
Leistungs-Verhältnis. Interessant ist 
hier besonders eine Entwicklung der 
letzten Jahre, die in jüngster Zeit durch 
Verwendung im PC 5000 Personal 
Computer von Sharp für Schlagzeilen 
sorgte: der Magnetblasen-Speicher. 
Bei ihm sind innerhalb eines Festkör- 
pers blasenförmige Magnetfelder vor- 
handen, die als Informationsspeicher 
angesprochen werden können. Jeder 
wichtige Koordinatenpunkt des dreidi- 
mensionalen Feldes kann high oder 
low geschaltet und somit durch ein Bit 
belegt werden. Das Speichermaximum 
liegt derzeit bei etwa 500 KB, Einheiten 
von mehr als 1 MB (MegaByte) sind 
aber durchaus realistisch. 


INTERPRETER 

heißt auf deutsch ”Dolmetscher” und ist 
ein Programm, daseinListingauseiner 
höheren Programmiersprache (z.B. 
Basic) in Maschinensprache umsetzt. 
Im Vergleich zum Compiler (vgl. auch 
dort) "übersetzt” der Interpreter jede 
Anweisung in einem Programm ein- 
zeln, braucht deshalb recht lang, bis 
das jeweilige Listing abgearbeitet ist. 


UMGEKEHRTE POLNISCHE NOTATION 
meint ein Eingabeverfahren, bei dem 
der Operator nach dem Operanden 
steht: also z.B. 10+15+ statt 10+15. Da- 
her wird die UPN auch als Postfix- 
Notation bezeichnet (post fixum= 
nachgestellt) 


1 ASA 
| steht für "American Standards As- 
sociation” und stellt für den amerikani- 
I schen Wirtschaftsraum in etwa das dar, 
was für uns die DIN (Deutsche Indu- 
strie Norm) ist. In den technisch- 
wirtschaftlichen Bereichen Schrift, 
Sprache, Datenübertragung, Gerätelei- 
stungen u.v.m. legt sie die gültigen Nor- 
men fest. Der Name wurde inzwischen 
allerdings in ANSI (American Natio- 
nal Standards Institute) geändert. 


DAISY WHEEL PRINTER 
ist die englische Bezeichnung für einen 
Typenrad-Drucker 


LESESTIFT 

meint die Sonderform des bekannten 
Lichtgriffels, die für das Lesen des 
Balken-Codes verwandt wird. 


| DATENTRÄGER 
ı Wo Computer sind, gibt es auch Da- 
tenträger: jedes Material, das zur Auf- 
| nahme und Speicherung von Daten 
I und Programmen geeignet ist, kann als 
| Datenträger bezeichnet werden. Die Be- 
deutung dieses Begriffes für den Ein- 
} satz moderner Rechenmaschinen 
I läßt den Schluß zu, als sei der Datenträ- 
ı ger als solcher eine Erfindung unserer 
Tage. Das ist jedoch falsch. Seit Men- 
| schen Informationen in Form von Bil- 
| dern oder Schriftzeichen auf Höhlen- 
1 wänden, Tempelmauern, Papyrusrol- 
len und Pergamentblättern aufzeich- 
I nen, gibt es Datenträger. Und zwei In- 
ı kas, die ihre Kippus tauschten, betrie- 
| ben bereits Datenträgertausch. 


COMPILER 

heißt auf deutsch "Zusammendrücker” 
bzw. "Kürzer” und stellt ein Programm 
dar. das Befehle aus einer höheren Pro- 
grammiersprache (Basic, Pascal, Logo, 
Forth, Lisp usw.) in Maschinencode 
umsetzt. Im Gegensatz zum Interpreter 
(vgl. auch dort) schreibt der Compiler 
zunächst das gesamte Programm um, 
das dann schneller als in der Urfas- 
sung ablaufen kann! Vorteil: Der Pro- 
grammierer kann in einer komfortab- 
len Programmiersprache arbeiten. 
Nachteil: Ein vom Compiler erzeugtes 
Maschinensprache-Programm ist meist 
länger und somit Speicherplatz rau- 
bender als ein Maschinenprogramm. 
das ein (guter) Programmierer erstellt 
hat. 


WINCHESTER-DRIVE 

ist ein Festplatten-Laufwerk, das sehr 
leichte Schreib-/Leseköpfe sowie einen 
optimalen Abstand zwischen Platten- 
oberfläche und Kopf aufweist. Die inte- 
grierte Festplatte ist als magnetisches 
Medium darüber hinaus versiegelt und 
ermöglicht eine hohe Informations- 
dichte sowie extrem große. Zugriffs- 
geschwindigkeit (vgl. auch Festplatten- 
Speicher). 


ANSI 

ist die Abkürzung für "American 
National Standards Institute” und ist 
die Neubezeichnung der traditions- 
reichen ASA (siehe auch dort). 


l 
l 
I 
BAR CODE 1 
ist weder eine spezielle Programmier- 
sprache für Nachtclubs, noch ein Ab- | 
rechnungssystem für Barzahler, son- 
dern lediglich die englische Bezeich- 
nung für den Balken-Code (vgl. auch j 
dort). I 
l 
I 
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Tips & Tricks 


ZX-Spectrum 


Maschinenroutine zum blitzschnellen Füllen des Bildschirmes mit einem 


Zeichen. 


Folgendes Programm invertiert 
nach Tastendruck den Bildschirm: 


Einfacher Listschutz: 

Das Programm wird vor das Hauptprogramm ge- 
stellt, bei einem Break-Versuch wird der Speicher 
gelöscht. 

1 POKE 23613,2 

2 POKE 23614,91 

3 POKE 23298,0 

4 POKE 23299,0 


Extraleben für Jet-Set-Willy 


Gute Nachricht für alle Willy-Fans! Mit folgendem 
kleinen Trick hat Willy unendliche Leben: 

Nach dem Laden des Vorprogrammes Break-Taste 
drücken, in Zeile 35 POKE 35899,0 eingeben, an- 
schließend RUN drücken und das Hauptpro- 
gramm laden. 


Man sollte bei längeren Programmen folgende Zeile 
als letzte einfügen, so kann man durch ein GOTO 
9999 jederzeit sehen, wie viel Bytes noch vorhanden 
sind: 

9999> PRINT ”Noch”;PEEK 23730+256*PEEK 
23731-PEEK 23653-256*PEEK 23654; "Bytes 
frei!” 


Maschinenunterstütztes Scroll in 


alle Richtungen 


Das nachfolgende Hilfsprogramm ist eigentlich 
schon eine ganze Programmsammlung. In jeweils 
zwei Zeilen befinden sich kurze, in Basic ansprech- 
bare Schleifen, die es ermöglichen, den Bildschirm 
mit hoher Geschwindigkeit in jede Richtung zu 
verschieben. 

Die Basisadressen dafür sind: 

53265(Y-Richtung) 

53270(X-Richtung) 

' Die Geschwindigkeit, in der der Schaltvorgang ablau- 

fen soll, wird bestimmt durch die Step-Anweisung in 
der Bewegungsschleife. 
Bedenken Sie, daß bei Anwendung einer Routine in 
Programmen die Geschwindigkeit durch eingefügte 
Anweisungen und Abfragen verlangsamt wird. 
Richten Sie sich daher beim Setzen der Verzöge- 
rungsschleife nicht nach geschätzten Werten, son- 
dern durch Ausprobieren bei Testläufen. 
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23 Zeichen eingeben-" 
3758 TO 23783 


Sa PRINT "Au ndruck" 
120 PRAUSE 2 
il@ RANDOMIZE USR 23768 


Scoe ia URS 23768 
Scbe SEB2 E LD #2 
sche Cbeiis Se CALL 5633 


& “Derfne Bi 
Ldschirmkanal” 


SCDS CDSBOR 


ne CL5” 


Scos SEU2 
ScDA Cbaiils 


"Miederero 
effnen Kanal” 


SCED a6is E LD B.22 
SCDF cs E BC 


“22 Zeilen 


gez NOCHI PÜSH 


5 


SCE3 3EFF 
SCES b7 


“ROM-Routi 
ne PRINT x:” 


SCES C1 BC 
SCcE? 18F3 Bere] 2 zZ HOCHi 

“1. Zeile 
voLL“ 


ScE3 ci a BC 
SCEA ars 3 NOCHZ 


“Bildschir 
Mm YoLL“ 


SCEC c8 
NOCH SCEB 
NOCH2 SCBF 


START SCDE 
x SEA 


CPU TI 


Klein - aber pfiffig 


Wenn wir von 'klein’ sprechen, 
so dürfen Sie nun keinen Ta- 
schencomputer erwarten: 
Der Acorn Electron ist ein 
vollwertiger Heimcomputer 
ohne Wenn und Aber. ’Klein’ 
erschien er uns lediglich im 
Vergleich zu manchem Un- 
getüm seiner Klasse, einem 
Commodore-64 zum Bei- 
spiel oder einem Sharp der 
MZ 700er Serie (mit letzte- 
rem ist er allerdings nur un- 
ter Vorbehalt zu vergleichen, 
da der Sharp bekanntlich 
noch Peripherie-Elemente 
wie Kassettenrekorder und 
Vierfarb-Plotter aufnimmt). 
Mit einer Breite von 33 und 
einer‘ Tiefe von 21,5 Zenti- 
metern ist der Acorn erfreu- 
lich handlich - zumal auch 
er über eine vollwertige 
Schreibmaschinentastatur 
verfügt. 

Gehäuse und Tastatur ohne 
jeden modischen Schnick- 
schnack in blendfreiem 
Hellbeige: 56 Tasten, Qwerty- 
Anordnung, mit 10 vom Be- 
nutzer frei belegbaren und 
über Shift zu erreichenden 
Funktionstasten sowie der 
Möglichkeit, ein _soge- 
nanntes Short Hand Basic 
zu schreiben. Darunter ver- 
steht man bei Acorn den Ab- 
ruf von Basic-Anweisungen 
über entsprechend belegte 


72 CPU 


Tasten (Beispiele: FUNC I 
ergibt INPUT, FUNC N er- 
gibt NEXT, FUNC R ergibt 
RUN usw.). 

Die Tasten sind allesamt 
griffig und prellen nicht. Ein 
wenig gewöhnungsbedürftig 
ist der Umstand, daß die ver- 
schiedenen Funktions- 
bereiche nicht in unter- 
schiedlichen Bedienergrup- 
pen angeordnet sind. Da- 
durch muß vor allem der An- 
fänger oft lange suchen, bis 
er ein bestimmtes Zeichen 
gefunden hat. Ansonsten be- 
findet sich auf der Gehäuse- 
Oberseite nur noch ein 
RESET-Kontakt links neben 
der Tastatur: Unserer An- 
sicht nach eine sinnvolle 
Konzeption, da zum einen 
der RESET lediglich mittels 
eines Kugelschreibers oder 
feinen Schraubenzieher er- 
reichbar und dadurch vor 
versehentlicher Betätigung 
geschützt ist, zum anderen 
aber nicht auf der Geräte- 
Rück- bzw. Unter-Seite um- 
ständlich gesucht werden 
muß. 2 

Eine dunkelbraune Zier- 
platine mit dem Acorn- 
Schriftzug und dem Herstel- 
lersignet, der grünen Eichel, 
vervollständigt das Finish. 
Auf der rechten Seite finden 
wir den Normanschluß für 


den Netzadapter, links den 
Video- und TV-Eingang so- 
wie zwei DIN-Buchsen für 
diverse Peripherien. Hinten 
ragt der User-Port (24 pins) 
hervor, der zwar durch eine 
breit angelegte Gehäuseein- 
richtung vor den gröbsten 
Gefahren geschützt ist, den+ 
noch aber eine Schwachstelle 
bedeutet. 

Wir lösen die vier Gehäuse- 
schrauben und betrachten uns 
den Acorn inwendig: 

Was hier zunächst auffällt, 
ist die sorgfältige Verar- 
beitung, die leider immer 
noch nicht selbstverständ- 
lich ist. Rechts haben wir 
die Gleichrichter-Platine, die 
exzellent bestückt und ein 


: 


TEXT 


oOoURwmHrO 


TEXT 


640*256 
320*256 
160*256 


Garant für exakt eingehal- 
tene Spannungswerte ist. Die 
Hauptplatine enthält als CPU 
einen 6502A-Prozessor, der 
mit 2MH2z getaktet ist, einen 
32K-ROM und RAM gleicher 
Kapazität. Von letzterem sind 
bei Programmierung in Basic 
28,5K frei verfügbar. Links 
haben wir den HF-Modulator 
und für BEEPs einen 35 mm- 
Lautsprecher. 

Technisch ist unser Testgerät 
etwas ganz feines: Bench- 
mark 1 (100 Leerschleifen) 
bewältigt der Acorn in 1,092 
Sekunden und istsomit Klas- 
senbester. Der Basic-Inter- 
preter umfaßt zwar nur 16K 
(selbst Taschengeräte verfü- 
gen heute schon über 24K), 
weist aber eine Reihe lei- 
stungsfähiger Anweisungen 
auf, wie Sie sich auch in un- 
serer Tabelle überzeugen 
können. 

Die Graphikauflösung ist in 
jedem Fall top of the charts. 
Die 16 Farben sind in sieben 
unterschiedlichen Arbeits- 
Modi verfügbar. Dabei erga- 
ben sich die folgenden 
Auflösungen: 


Bildpunkte Zeichen/Zeile 


80*32 
40*32 


320*256 
160*256 
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ım TEST + + + COMPUTER IM TEST + + + COMPUTER IM TEST + + +COMPUTER IM 1] 


T+ + + COMPUTER IM 


Graphik- und Textfenster so- 
wie diverse Sonderzeichen 
können vom Anwender selbst 
definiert werden. Über Stan- 
dard-Software ist auch Groß-/ 
Kleinschreibung realisierbar. 
Deutsche Sonderzeichen 
(Umlaute wie ä, ö, ü und 
das B) sind ebenfalls defi- 
nierbar. 

Die Joysticks sind über den 
Peripherie-Anschluß mit 
dem Acorn zu verbinden. 
Für die Programmierung ef- 
fektvollen Sounds steht ein 
vierkanaliger Tongenerator 
zur Verfügung, der nich 
ganz an die Möglichkeiten 
des C-64 heranreicht, für 
Normalanwendungabervoll 
und ganz genügt. 

Ein Haken an dem schönem 
System ist die Sonderstel- 
lung, die der Interface-Box 
von Acorn zukommt. Dieses 
Zubehörteil ist nicht nur für 
den Joystick-Anschluß not- 
wendig, sondern auch ein 
Muß für jeden ambitio- 
nierten Programmierer, der 
seinen Acorn zum Beispiel 
mit einem Drucker (Centro- 
nics) oder einer Floppy aus- 
statten möchte. Mit den vom 
Hersteller gebotenen ROM- 
Cartidges und dem technisch 
durchaus realisierbaren Netz- 
werkverbund sieht es natür- 
lich nicht besser aus. 

Ende des Jahres werden zwei 
interessante Disketten-Lauf- 
werke im Acorn-Sortiment 
stehen:. Eine Standard- 
Floppy (5,25”) in Slimline- 
Bauweise und eine Micro- 
Drive (3,5"). 

Empfehlen können wir Ih- 
nen die Verwendung eines 
RGB-Monitors, der (aus- 
nahmsweise) direkt anschließ- 
bar ist und angesichts der 
fantastischen Auflöse-Eigen- 
schaften des Electron durch- 
aus eine lohnende Inve- 
stition darstellt. Gegenüber 
einem normalen Farb- 
fernseher bringt er ein un- 
gleich gestochenes Bild - 
brilliant und augenschon- 
end. 

Als Programmiersprache 
bietet sich zunächst sicher 
das implementierte Acorn- 
Basic an. Werandere Dialekt 
vorzieht, erhält für knapp 60 
Mark einen ganz brauchba- 
ren S-Pascal-Compiler mit 
Bool’schen Wahrheitsaussa- 
gen, multidimensionalen 
Strings, Integers und vielem 


mehr. 

Auch LISP und FORTH 
sind (komplett mit Bedie- 
nerhandbuch) zum gleichen 
Preis verfügbar. 
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TEST ++ + COMPUTER IM TEST + + + COMPUTER IM TEST + +, 


Der Electron selbst wird zum 
Preis von 798,- DM (unver- 
bindlicher Richtpreis) im 
Einzelhandel angeboten - 
ein Betrag, der uns gemessen 
an anderen weniger leistungs- 
fähigen Geräten durchaus 
gerechtfertigt scheint. Das 
soll aber nicht heißen, daß es 
uns nicht freuen würde, 
wenn der Electron in abseh- 
barer Zeit auch für wenig 

zu haben wär: 


ENDPROC 
ENVELOPE 
EOF# 

EOR 


REPORT 
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Biete an Software 


Adressenliste - ATARS, Apple etc. 
100 ADR = 30,- DM ®0211/612452 


TI-99/4A: Bundesliga und andere 
TI-Programme. Info gegen Rückporto. 
B. Knedel, Tulpengasse 16, 

3171 Weyhausen, ®05362/71187 


ACHTUNG VC-20/64 
Ständig TOP-Angebote für Auen Computer 
auf Lager! Programme ab 1,-...1,9 
Komplette Programmpaketı 
Textverarbeitung unter 10,- DM. "Tabel- 
lenkalkulation, Übersetzungs- und Büropro- 
gramme (Spitze !) zu Knüllerpreisen. Ein 
Katalog mit über 60 Selten wartet schon auf 
Euch! Werbekassette (randvoll mit Program- 
men) und Katalog zusammen für nur 3,- DM 
In Briefmarken! Schreibt heute noch an 
S+S Soft-J. Schlüter, Schöttelkamp 32a, 
4620 Castrop Rauxel 9, Abt. N 11, 
(Computertyp nicht vergessen) 
Keine Copyrightprogramme 


ZHGN. 1955-84 
©02102/21509 


Lotto-Freaks alle 
6/49+7/38 Info 


VC-64 Datasette Joystick + 64 
intern für 650,- DM zu verkaufen. 
©0681/594935 ab 17 Uhr 

” 

Nützliche 
Gratisinfo 
Postfach 72, 


Software für Spectrum. 
anfordern. OMEGA-SOFT, 
8473 Pfreimd 


6-64-Superprogramme abzugeben oder 
zu tauschen. Gratisliste bei 
Postlagernd 058542B, 7900 Ulm/Do. 


Spiele für C-64 auf Kassette, z.B. 
Armadeddon, Hobbit und vieles mehr 
bei Schreibwaren-Gründ, Franzis- 
kanerstraße 14, 8000 München 80, 
Direkt oder Versand. Liste gegen -,80 Pf.! 


Kleinanzei 


0 2.2.22 2 2 2 0222207 
Ordnen Sie Ihre Programme! 
DATENKASSETTEN 
Für jedes Programm eine Kassette. 
Kein langes Suchen mehr. Schnell. 
Jeweils nach Länge der Programme. 
ul 6-10 = 1,50 per/Stck. u 
il 6-20 = 1,60 per/Stck. {ii} 
[ij 6-30 = 1,70 per/Stck. u 
+ DM 3,50 Porto. Ab DM 30,- frei! 
Besonders günstige Mengenrabatte 
ab DM 75-5%; DM 100-8%; DM 150-12% 
DM 200-15%. Bei Vorkasse 3% Skonto. 
‚Ausland: Nur Vorkasse + plus 4,50 DM 
Jetzt gelich bestellen. Tag + Nacht. 
Anrufbeantworter 090/641 1981 
C. Jensen, Fahrenkrön 49, 2 Hamburg 71 
WR ar 


Sinclair Software Library - Europas 
führende Software-Verleih für Spectrum/ 
ZX-81. Info gegen frank. Umschlag von 
Simpson Software, PF 7809, 48 Bielefeld 


Riesenauswahl Supergames für 6-20 
ab 2,- DM. Liste anf. (1,- DM) bei Stupid 
Software, Mozartstraße 1, 6729 Woerth 


TI-99/4A: TI und Ex.-Basic Programme 
zu verkaufen. Info gegen Rückporto. 
B. Knedel, Tulpengasse 16, 

3171 Weyhausen, ® 05362/71187 


CBM 64 Brandneu aus Amerika 
Summergames, Strippoker, - Dallas, 
Adventure, Doodle, Slot Light, Curs- 
Aerobicdancing + weitere 300 Games 
auf-Disk und Cass. Liste ä 3,- DM an 

Holland CMB Club, Postbus 390, 

6900 AA Zevenaar Holland 


Dragon Soft+Lit. Verkauf @06144/41754 


VC 64 und VC 20 Spiele, Info-Liste gegen 
Rückporto 1,30 DM in Briefmarken. 
H. Wierzbinski, Edew. Landstraße 126, 
2900 Oldenburg 


®® © ® OTI-99/4AEN.O 00 © 
Achtung nur für Erwachsene. Keine 
Abgabe an Jugendi. Bitte Alter an- 
geben. Top Sound - Top Grafik. Dieses 
Spiel wird Sie in Stimmung ha- 
ten. Preishit incl. Cass. Porto und 
Info-Programm. Nur 10,- DM in Umschl. 
an T. Karbach, Remscheider Straße 18, 
®o © ©5650 Solineni@@@® 


Rathausstraße 4, 2300 Kiel 1 
Telefon (04 31) 963 76 


FORTH-Assemblerlistings für alle wichti- 

gen Microprozessoren je 25,- DM, Instal- 

lation-Manual 25,- DM, kosten. Info anf. bei 

B. Lipgens-Datentechnik, Wilbrechtstr. 65, 
8000 München 71 


APPLE 
ATARI 
BASIS 
Commodore 
DAI 

EACA 
OSBORNE 
SHARP 
TANDY 


Biete an Hardware 


WER 
Soft und Hardware für VC-20 + .64 
‚Akustik-Koppler, Schnittstelle, 
Doppellauf-Floppy, Speichererweiterung, 
40/80 Zeichenkarte und Bustreib. 
für 1541, macht Ihre Floppy 8 x 
schneller beim Einlesen. Katalag 
anfordern bei 

Norbert Flesch, Lippspringerstraße 14, 

4650 GELSENKIRCHEN 
30209/395447 

2.2 2 22 2 22222 2270 


Appie Com. 48K 998,-, Floppy 5,25" 
Slimeline 580,-, Controler 165,-, 
Monitore 20 MHz 12” Gelb 398,- 

INFO kostenlos, Noite-Bürotechnik, 

2000 Hamburg 61, Stavenhagenstraße 3, 

=@040/588838 Tag + Nacht 


Super Joystick Quickshot || 
für VC-20/C-64 und Atari VCS 
Reset-Taster für VC-20/C-64 
5,25 Zoll Disketten 10 St. DM 56,- 
Mignon NC-Akkus 10 St. DM 29,- 
Leicht, 8752 Mainaschaff, #06021/74704 


DM 39,50 
DM 10,- 


© Spectrum ® Spectrum ® Spectrum © 
Erw. a. 48K 89,- DM, 80K 189,- DM prog. 
Joyst. Intf. 110,- DM, Joyst.Interf. 53,- 
DM dK’Keybord 188,- DM Fuller FDS Key- 
bord 238,- DM Light Pen 84,- DM Floppy 
System lieferbar. Info anfordern, 
Meyer, Rahserstraße 58, 4060 Viersen, 


@02162/22964 Händleranf. erwünscht 


Verkaufe günstig TI-99/4A Ex.-Basic, 
2 Spielmodule, @02103/43591 


ZX-Printer + Papier 100,- DM. 
Jochen Ickinger, Olgastraße 13, 
7100 Heilbronn 


TI-99/4A + Joystick + Ext.Basic + 
Org. Handbuch + Kabel + Cassettengerät 
+ Preis VB 600,- DM. 
206181/491379 


Verkaufe VC-20 mit Supersoftware 
@02762/2911 Preis nach Vereinbarung 


‚Akustikkoppler, Schnittstelle 
und Telefonmodem für 6-84. 
Anfrage oder Prospekte bei 
N. Flesch, Lippspringerstraße 14, 
4650 GELSENKIRCHEN 
© 0209/3954497 


Verkaufe 

2X-81, ZX Drucker 16K RAM 
Aufsatztastatur 100,- DM 
=@0211/57 640% 


%% Floppy 1541 6x schneller X 


durch Parallelbus-Interface mit 
Software nur DM 179,- Info DM 1.50 
B. Akesson, Pf. 802, 4040 Neuss 


2X-81 Tastatur 
(Farbig codierte Tasten wie beim Spectrum) 
DM 15,00 plus Porto DM 1,40. Simpson 


Software, PF 7809, 4800 Bielefeld 1 


VC-20 ÖSTERREICH VC-20 
Gratis Info bei P. Martin, 
uellenstraße 74/20, 1100 Wien 

um 


Q 
m au 


Verschiedenes 


Basic-Kurs VC 20 + VC 64 
Kompakt-Kurs I + II Teil mit Kassette | 
zu verkaufen. Information: Rolf Freitag, 
Gneisenaustraße 87, 4600 Dortmund 1, 

©0231/825826 oder gegen 
80 Pfennig Rückporto 


Suche Hardware 


Suche gebr. ZX-81 Drucker =100,- DM 
M. Ehm, Büsackerstr. 138,41 Duisburg 18 


Tausch 


Tausche Software (Zaxxon) für W6-64 
@08226/454 ca. 180 Spiele 


6630 Saarlouis, 
Lothringerstraße 9 


nninger 


LER TRONIK. 


BUCHHANDLUNG 


Fachbücher + 
l N N Kl Fachzeitschriften 
für Mikrocomputer 


Gertrudenstraße 2- 4 Ecke Neumarkt) 
5000 Köir ! Teieton (02211 210528 
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Micro-Computer, Peripherie und Software GmbH 


APPLE SHARP EPSON GENTRONICS FELTRON 
IBS Intertace SINCLAIR SOFTWARFERSTELLUNG 


Gibitzenhofstr 69. 8500 Nurnberg 1. Tel. (09 11) 677093 


IHR GROSSER PARTNER 
FÜR KLEINE COMPUTER 


DATA BECKER 


Merowingerstr 30 4000 Dusseldort Tel 0211 310010 


Oktober 1984 


Oktober 1984 


Unser Softwareversand bietet Ih- 
nen zu wirklich einmalig günstigen 
Preisen jeden Monat die neuesten 
Programme (zu den bereits in frü- 
heren Ausgaben veröffentlichten), 
auf Kassette bzw. Diskette an. 
Wenn Sie die hier aufgeführten 
Bedingungen beachten, können 
auch Sie von unserem Angebot 
Gebrauch machen. 


Bestellungen Inland: 


Gegen Einsendung eines 
Schecks oder Vorauszahlungaufl 
unser Konto bei der Kreisspar- 
kasse Eschwege. 

Bankleitzahl 522 500 30 
Kto.-Nr. 45 22 934 


dingt die genaue Bezeichnung 
der Kassette (z.B. CPU 1/84 TI- 
99/4A) und des Computers an. 


Lieferung noch nicht erhalten? 


Bei Überweisung aufunser Kon- 
to kann es bis zu2 Wochen 
dauern, bis wir Ihre Bestellungin 
Händen haben. 

Nur Vorauskasse, Schein Oft passiert es, daß auf der Über- 
(Kassette 10.- DM. Diskette 20.- weisungsdurchschrift weder Na- 
DM). Keine Schecks oder Über- me, noch Ort, noch Art der Be- 
weisungen! stellung zu erkennen sind. 
Schreiben Sie uns! (Anrufe 
kosten viel Geld und bringen, 
weil dann Schriftvergleiche nicht 
möglich sind. kein Ergebnis)!. 


Bestellungen Ausland: 


[Wenn es bei uns besonders hek- 
tisch zugeht, dann kann esschon 
mal passieren, daßes mit der Lie- 
ferung etwas länger dauert. Ver- 
gessen Sie bitte nicht: Der Kas- 
settenservice ist ein zusätzlicher 
Service von uns, der Ihnen. dem 
Leser, Tipparbeiten ersparen 
soll (Sie kennen den Versuch 
einer anderen Zeitschrift, dieses 
per Lichtgriffel zu ermöglichen). 

Wir tun unser möglichstes. Aber 

Pannen sind nie ausgeschlossen. 
” Bitte haben Sie in solchen Fäl- 
? len Verständnis. 


aus CPU 10/84 


V6-20 K 10,-DM 
Begrifferaten D 16,-DM 
Sammler 


Commodore 64 K 10,-DM 
Zeppelin Command D 16,-DM 
Car Action 


ZX-81 K 10,-DM 
Lebenswandeltest 

Boxen 

ZX Spectrum K 12,-DM 


Türme von Hanoi 
Disassembler 
Aufgabenhilfe Mathematik 


TI-99/4A 
Donald der 
Dschungelheld 
Super Kong 


Dragon 32 
Reflex-R 


Bit-90 K 10,-DM 
Fluchtversuch. 


Atari K 12,-DM 
TIB-TAB 
Circus 
Water way 
Galaxians 
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Berichte 


Immer mehr Menschen ar- 
beiten mit dem Bildschirm- 
gerät als dem "Fenster zurIn- 
formation”. Daher ist es un- 
abdingbar, daß die neuen 
Informations- und Kommu- 
nikationstechniken men- 
schengerecht gestaltet und 
eingesetzt werden. Die neue 
Technik muß vor allem ein- 
fach, d.h. laiengerecht, sein. 
Durch den Einsatz von Bild- 
schirmgeräten können die 
arbeitenden Menschen neue 
und interessante Aufgaben 
übernehmen. 

Durch die Computerleistung 
am Arbeitsplatz werden 
Routinearbeiten (z.B. bu- 
chende, rechnende Tätigkei- 
ten, Routinezeichnen, Stan- 
dardbriefschreiben, Detail- 
zeichnen) auf die Maschine 
verlagert. Zugleich können 
anspruchsvollere Arbeits- 
plätze für qualitativ höhere 
Tätigkeiten geschaffen wer- 
den. Der Sachbearbeiter hat 
z.B. mehr Freiraum für pla- 
nerische und kreativere 
Aufgaben. 

Beispiele: 

Buchhaltung: Statt "Rechen- 
knechte” nun Analytiker des 
Rechnungswesens. Personal- 
büro: Statt Lohnrechner nun 
Personalbetreuer. Konstruk- 
tion: Statt Teilzeichner nun 
EDV-Operating und mehr 
Kreativität beim Konstruie- 
ren. 

Mit Bildschirmgeräten ist in 
vielen Bereichen ein reak- 
tionsschnelles, situations- 
gerechtes und wirtschaft- 
liches Arbeiten möglich. 
Beispiele: 
Wartungsdienst-Einsatzsteue- 
rung, Auftragsbearbeitung, 
Reisebüroberatung und - bu- 
chung, Lagerhaltung, Online- 
Programmierung. 

Durch leichteren Zugang zu 
Computerleistung zum Ar- 
beitsplatz aus kann ein Mit- 
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Arbeitsrequisit der Zukunft: 


arbeiter viel schneller über 

aktuelle und umfassende In- 

formationen verfügen als zu- 
vor mit Telefon und Aktenre- 
gistratur. Dadurch wird sein 

Handlungsspielraum ver- 

größert, seine Arbeit ratio- 

neller, die Qualität seines Ar- 
beitsergebnisses verbessert. 

Beispiel: 

Durch Computerunterstüt- 

zung wird die Tätigkeit des 

Kundenberaters in einer 

Bank von Routinearbeiten, 

wie Suchen von Daten in 

Listen/Karteien, umständ- 

liche Routine-Schreibarbeit, 

entlastet. 

-Alle notwendigen Daten 
können sofort über einen 
Bildschirm abgerufen wer- 
den; sie sind aktuell im Au- 
genblick des Abrufs. 

- Rückzahlungsvarianten ei- 
nes Kredits mit unter- 
schiedlicher Laufzeit, Aus- 
zahlungskurs und Zinssatz 
können schnell fehlerfrei 
auf dem Bildschirm darge- 
stellt werden. 

-Der Bankkaufmann kann 
sich wesentlich stärker den 
seiner qualifizierten Aus- 
bildung entsprechenden 
Tätigkeiten, z.B. der indivi- 
duellen Kundenberatung, 
widmen. 

Die Arbeit‘mit den hoch- 

wertigen technischen Ge- 

räten und Systemen erfordert 
bei den betreffenden Mitar- 
beitern ein qualifizierteres 

Wissen (meist aber keine 

speziellen Computer-Kennt- 

nisse). Eine erhöhte Bereit- 
schaft zum Mitdenken und 
zum Lernen sowie berufliche 

Mobilität sind allerdings 

Voraussetzungen für die 

Übernahme neuer und in- 

teressanter Aufgaben. 

Der Einfluß technologischer 

Neuerungen auf die Be- 

schäftigung kann sich - das 

zeigen die bisherigen Erfah- 


BILDSCHIRM STATT KUGELSCHREIBER 


Anläßlich einer repräsentativen Umfrage unter Büroarbeitern des Jahres 1980 antworteten noch 67,3% auf die 
Frage nach dem Arbeitsgerät Nr. 1: ”Mein Kugelschreiber”. Für die frühen 90iger Jahre bereits wird die ent- 
sprechende Antwort mindestens ebenso entschieden lauten: ”Mein Display”. 


rungen und wissenschaft- 
lichen Untersuchungen - 
durch strukturelle Verände- 
rungen in einzelnen Berei- 
chen auswirken. Ganz über- 
wiegend bestimmen aber de- 
mographische und konjunk- 
turelleRahmenbedingungen 
die Beschäftigungslage. 

Der eigentliche Durchbruch 
neuer Informations- und 
Kommunikationstechnik im 
Bürobereich wird erst in der 
zweiten Hälfte der 80er Jahre 
erwartet. Dann aber wird 
sich die Situation auf dem 
Arbeitsmarkt Zug um Zug 
verändern, da geburten- 

schwache Jahrgänge in das 
Berufsleben eintreten (Lehr- 
lingsmangel). Überdies ist zu 
berücksichtigen, daß es bei 
den Beschäftigten im Büro- 
bereich einen geringen Aus- 
länderanteil und einen ho- 
hen Frauenanteil (ca. 50 Pro- 
zent) gibt. - In den er 
Jahren wird es einen drasti- 
schen Rückgang geben. 

In Zukunft wachsen Büro-, 
Informations- und Kommu- 
nikationstechnik zur inte- 
grierten Bürokommunika- 
tion zusammen. Wesentliche 


Voraussetzung dafür ist die - 


Entwicklung "offener Kom- 
munikationssysteme”, wie 
sie jetzt durch die neuen 
Dienste der Deutschen Bun- 
despost mit Telefax, Teletax 
und Bildschirmtext entste- 
hen. 

Im Prinzip sind die Leistun- 
gen, die diese Dienste ermög- 
lichen, seit langem bekannt 
(Fernkopierer, Datenfern- 
übertragung). Fernkopierer 
und Datenfernübertragung 
haben bisher die Berufe im 
Büro nicht beeinflußt. Wird 
das auch künftig so bleiben? - 
Nein! 

Fernkopierer und Datenfern- 
übertragung waren bisher 
Leistungen "geschlossener 


Kommunikationssysteme”. 
Die neuen Dienste der deut- 
schen Bundespost schaffen 
völlig neue Voraussetzun- 
gen. An "geschlossenen 
Kommunikationssystemen” 
kann sich nur derjenige be- 
teiligen, der seine Anschluß- 
geräte vollständig auf die 
Prozedur seines Partners 
einstellt. Im allgemeinen 
zwingt ihn das, Geräte des 
gleichen Herstellers wie sein 
Kommunikationspartner ein- 
zusetzen. Daher werden "ge- 
schlossene Kommunikations- 
systeme” vorwiegend für den 
internen Informationsaus- 
tausch genutzt. Und einen 
umfangreichen internen Kom- 
munikationsbedarf haben 
ausschließlich Großver- 
waltungen. "Geschlossene 
Kommunikationssysteme” 
haben damit einen elitären 
Charakter. Verantwortlich 
sind für sie die Spezialisten 
in der Datenverarbeitungs- 
und Organisationsgruppe. 
Bediener der Geräte nutzen 
im allgemeinen nur Teil- 
funktionen des Gesamtsy- 
stems, dessen Zusam- 
menhänge ihnen meist un- 
bekannt bleiben. 

"Offene Kommunikations- 
systeme” geben uns dagegen 
die Benutzungsfreiheit, die 
wir vom Fernsprechdienst 
kennen. Jeder kann mit je- 
dem Gedanken austauschen, 
gleichgültig, von welchem 
Hersteller sein Telefon 
stammt. Die wesentlichen 
Unterschiede zwischen den 
offenen und geschlossenen 
Kommunikationssystemen 
verdeutlicht das folgende 
Beispiel: 

Eine Buchhaltung, die meh- 
rere Buchgroßhändler (die 
selbstverständlich alle unter- 
schiedliche Datenverar- 
beitungsanlagen einsetzen) 
beliefern, möchte bei seinen 
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Lieferanten künftig Bücher 
nicht mehr telefonisch oder 
brieflich bestellen, sondern 
über ein elektronisches In- 
formationssystem. Bei "ge- 


schlossenen Kommunika- 
tionssystemen” wäre unsere 
Buchhandlung gezwungen, 
für jeden seiner Lieferanten 
ein spezielles Endgerät (Ter- 
minal) zu installieren, um 
ihn im Computerverbund zu 
erreichen; und trotz der Viel- 
falt der eingesetzten Termi- 
nals könnte der Buchhänd- 
ler weder seine Kunden, 
seine Kreditinstitute, seine 
übrigen Lieferanten und die 
öffentliche Verwaltung kon- 
taktieren. Mit Hilfe eines”of- 
fenen Kommunikationssy- 
stems”, zum Beispielim Bild- 
schirmtext, wäre es ihm 
dagegen möglich, bei seinen 
Großhandlungen und Lie- 
ferzeiten zu erfragen, Bücher 
zu bestellen, Sonderange- 
bote einzuholen (falls seine 
Lieferanten am Computer- 
verbund des Bildschirm- 
textes angeschlossen sind); 
er könnte seinen Kunden 
Angebote unterbreiten, bei 
seinen Kreditinstituten die 
Zahlungen buchen und von 
der öffentlichen Verwaltung 
Informationen einholen - 
und das alles mit einem 
Bildschirmtext-Terminal. 
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Dieses Beispiel zeigt deut- 
lich: "offene Kommunika- 
tionssysteme” verlieren den 
elitären Charakter. Auch 
Kleinbetriebe können sie 
nutzen. Um diesen Hinweis 
richtig zu bewerten, müssen 
wir. berücksichtigen, daß in 
der Bundesrepublik 97 Pro- 
zent aller Betriebsstätten we- 
niger als 50 Mitarbeiter ha- 
ben! Geräte für die "offene 
Kommunikationssysteme” 

(zum Beispiel Bildschirm- 
text), brauchen keine spezia- 
lisierten Bediener mehr. Ins- 
besondere Sekretärinnen 
und Sachbearbeiter werden 
sie nutzen. Sie verschaffen 
ihnen Zugriff zu zahllosen 
externen und internen Da- 
teien und Datenbanken. Da- 
durch ändert sich natürlich 
ihre bisherige Aufgabe und 
ihr Arbeitsinhalt. Heute ver- 
bringen diese Kräfte die mei- 
ste Zeit damit, Entschei- 
dungsgrundlagen zusam- 
menzustellen. Künftig wird 
dies sehr schnell gehen. Das 
gibt uns die Chance, die 


bisher die Organisations- 
prinzipien  beherrschende 
Taylorsche Arbeitsteilung 
zugunsten einer Arbeits- 


zusammenfassung zu verlas- 
sen. Damiterreichen wireine 
Anreicherung der Arbeits- 
inhalte. Für die Sekretärin 


bedeutet dies: Ende der 
konsequenten Trennungvon 
Schreib- und Verwaltungsar- 
beiten. Statt dessen wieder 
Zusammenfassung und 
Durchmischung dieser Tä- 
tigkeiten. Sie wird während 
des Schreibens Informatio- 
nen abfragen und in die 
Schriftstücke einfügen. Für 
die Sachbearbeitung winzi- 
ger Teilgebiete bei kompli- 
zierten Arbeitsabläufen; statt 
dessen Bearbeitung des 
Gesamtvorganges. 

Die "offenen Kommunika- 
tionssysteme” haben auf die 
Arbeitsabläufe folgende 
Wirkung: Der Mitarbeiter 
bekommt nicht mehr alle In- 
formationen, die ihn irgend- 
wann einmal interessieren 
könnten, aus denen er sich 
dann mühsam diejenigen 
heraussuchen muß, die er ge- 
rade benötigt. Vielmehr for- 
dert er die benötigte Infor- 
mation dann aus der Daten- 
bank, wenn er sie braucht. 
Damit gehören die Begriffe 
"Informationsflut”, in der er 
zu ertrinken droht, oder "In- 
formationsebbe”, bei der er 
das Gefühl hat, nicht mehr 
alles zu erfahren, was er be- 


nötigt, der Vergangenheit 
an. 
Diese Entwicklung führt 


zwangsläufig zur Delegation 
von Entscheidungen an die 
Sachbearbeiterplätze. Und 
das bewirkt einen Abbau der 
Hierarchie im Büro. Da die 
"offenen Kommunikations- 
systeme” zu einer Dezentra- 
lisierung der Verwaltung 
führen, ermöglichen sie 
auch, daß jeder in der Nähe 
seines Wohngebietes ar- 
beiten kann. 

Viele der heute als besonders 
monoton empfundenen Ar- 
beiten für Sachbearbeiter 
und Sekretärinnen fallen 
künftig weg. So alle Arbeiten 
beim Postempfang: Post öff- 
nen und verteilen; und alle 
Arbeiten beim Postversand: 
Post sammeln, kuvertieren, 
frankieren und expedieren. 
Archivarbeiten kann zu- 
nächst der Großbetrieb auto- 
matisieren. Später werden 
das auch Kleinbetriebe kön- 
nen, nämlich\ dann, wenn 
Breitbandnetze den Dienst- 
leistungsanbietern erlauben, 
für sie die Registraturar- 
beiten zu übernehmen. 
Dann werden überflüssig: 


Berichte 


Ablegen. Handakten führen, 
Tageskopien sammeln, Über- 
wachen der herausgegebe- 
nen Unterlagen, Suchen der 
Vorgänge in noch nicht ab- 
gelegten Schriftgutbergen. 
Außerdem entfallen das 
Führen von Karteien und de- 
ren ständige Aktualisierung. 
Wie wird sich das auf die Be- 
rufe im Büro auswirken? - 
Sachbearbeiter und Se- 
kretärinnen müssen wieder 
Gesamtzusammenhänge in 
der Verwaltung überblicken. 
Nur so können sie die Infor- 
mationen richtig abrufen, 
zusammenfassen und als 
Entscheidungsgrundlagen 
nutzen. Die Arbeitszusam- 
menfassung erfordert daher 
eine gründlichere Ausbil- 
dung und mehr Kenntnisse 
als die Taylorsche Arbeitstei- 
lung. Damit wächst die Be- 
deutung der kaufmänni- 
schen Lehre. Sie muß zu ei- 
ner umfassenden Ausbil- 
dung werden. bei der auch 
die Bereitschaft zum lebens- 
langen Lernen geweckt und 
die Technik späteren Zuler- 
nens gelehrt wird. Mit dieser 
Grundlage kann dann jeder 
Bürokaufmann auch künftig 
die organisatorischen und 
arbeitsmäßigen Zusam- 
menhänge im Büro über- 
blicken. Das versetzt ihn in 
die Lage. sich schnell in neue 
Arbeitsgebiete "einzuleben”. 
Angelernte und ungelernte 
Arbeitskräfte können bei 
dieser Entwicklung gefähr- 
det sein; insbesondere, so- 
lange der Arbeitsmarkt nicht 
sämtliche Arbeitswilligen 
aufnehmen kann. 

Werden die bisherigen Be- 
rufe in der Daten- und Text- 
verarbeitung erhalten blei- 
ben? - Damit ist zu rechnen. 
Die technische Entwicklung 
wird zu immer umfangrei- 
cherer Systemsoftware füh- 
ren. Dazu sind hochwertige 
Spezialisten erforderlich. 
Bildschirmtext benötigt auf 
der Anbieterseite gut ausge- 
bildete Organisatoren und 
Datenverarbeitungsfachleute 
für den Aufbau von Such- 
bäumen, den Computerver- 
bund und außerdem Spezia- 
listen für die Gestaltung der 
Angebotsseiten. Und schließ- 
lich braucht man natürlich 
auch künftig weiterhin Spe- 
zialisten für Ablauf-- und 
Unternehmensorganisation. 
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SPIELE 
FÜR IHREN 


Doch nun zu den einzelnen 
Titeln der neuen Hueber- 
Reihe: 


Paul Bunn 


Der Verfasser ist ein erst 16 
Jahre alter Schüler aus Eng- 
land, der bereits einen Band 
zum Atari 600/800 vorgelegt 
hat. In unserem Band bietet 
er 21 interessante Pro- 
gramme, die Intelligenz und 
Fantasie des Atari-Users auf 
raffinierte Art schulen sol- 
len: Fallschirmspringer - 
Schreibspiel in 3 Dimen- 
sionen - Rennen - Mondlan- 
dung - Entscheidungen - 
Safeknacker - Panzer- 
schlacht - Zahlenspringer - 
Grand Prix 2 - Städte bom- 
bardieren - Umzingelungim 
Weltraum - Farbmuster - 
Farbenpuzzle - Kettenmu- 
ster - Klangprogramm - 
Listingunterbrechung = 
Reaktionstest - Kompli- 
mentemacher - Morsen - 
Andocken - Skiabfahrt. 

Die Daten: 1. Aufl. 1984, 127 
S., 14,80 DM 


Alastair Courlay 
Spiele für Ihren 
VC-20 


Der Autor dieses Bandes stu- 
diert Informatik am Paisley 
College Glasgow und schrieb 
schon einen Bestseller "34 
1K-Superspiele für den 
ZX-81”. Auch er bringt eine 
ganze Reihe guter Pro- 
gramme, um Sie das Beste 
aus Ihrem Commodore 
herausholen zu lassen: Neu 
in der Stadt- Panzerschlacht 
- Duell mit einem Roboter - 
Piano 2001 - Skizzenblock - 
Labyrinth - Ungeheuer - 
Zahlenfresser - Weltraum- 
kanonier - Andocken - Golf 
- Ausbruch - Mondbasis - 
Leben - Spielautomat - 
Fleck aus dem All- Zerstörer 
- Autorennen - U-Bootjagd- 
Reversi (Othello) - Apollo II- 
Klänge - Henker - Senso - 
17+4. 

Die Daten: 1. Aufl. 1984, 111 
S., 14,80 DM 


Tim Hartnell (Hrsg) 
Spiele für 
Ihren ... 


Ein Heimcomputer ist im- 
mer nur so gut wie seine Soft- 
ware. Deshalb sucht man als 
passionierter Spieler ständig 
nach neuen Programmen, 
man bemühtsich darüber hin- 
aus aber auch um die Voll- 
kommenheit der eigenen 
Programmierfähigkeiten, 
um auch selbstgestrickten 
Action-Games bzw. Ad- 
ventures den letzten Pfiff zu 
geben. 

Die soeben im Max-Hueber- 
Verlag München _ erschie- 
nene Taschenbuchreihe 
"Spiele für Ihren...” bietet 
hier wertvolle Hilfe. Beson- 
ders erfreulich an den hand- 
lichen Bänden ist, daß sie für 
fast alle gängigen Com- 
putertypen verfügbar sind. 
Die Serie stellt im wesent- 


Peter Shaw 


Da die vorliegende Reihe eng- 
lischen Ursprunges ist, dür- 
fen die britischen Erfolgsmo- 
delle nicht fehlen. Für den 
Oric-1 sowie den neueren At- 
mos legt Peter Shaw ein Pro- 
grammierbuch vor, das Sie 
schon bald befähigen wird, 
anspruchsvolle Spiele selbst 
zu schreiben. Hier die ge- 
botene Software: Leckes 
Dach - Henker - Wortraten- 
Lichtmuster - Knobeln-3D- 
Autofahrt - Ereignisse - 
Nimm - Bomben los! - Das 
Geheimnis der schwarzen 
Burg - Magisches Quadrat - 
Wettfahrt - Entenjagd - Ver- 
kehrsgewühl - Würstchen 
retten - Moire- Pacmampfer 
- Dr. Watson - Quadrat - 
Ballspiel. 

Die Daten: 1. Aufl., 1984, 119 
S., 14,80 DM 


lichen die - leicht überar- 
beitete - englische Original- 
fassung dar, die 1983 bei 
Interface/Virgin Books er- 
schien und von führenden 
Kennern der Homcecom- 
puter-Szene geschrieben 
wurde. 

Der Herausgeber, Tim Hart- 
nell, darf als einer der kom- 
petentesten Computer-Fach- 
leute Großbritanniens gelten 
und hat zahlreiche Beiträge 
für diverse englische Fach- 
magazine geschrieben. Ei- 
nen Namen schuf er sich 
aber auch durch Bestseller 
wie "Lassen Sie sich von 
Ihrem BBC-Mikrocomputer 
das Programmieren beibrin- 
gen” und "Erfolgreich pro- 
grammieren mit dem 
ZX-81”. 


Alex Gollner 
Spiele für Ihren 
BBC-Micro 


Auch Alex Gollner ist erst 16 
Jahre alt, möchte später In- 
formatik studieren und legt 
mit diesem BBC-Titel sein 
erstes Computerbuch vor. 
Folgende Spielprogramme 
sind in dem Büchlein vor- 
handen: 3D-Terrorjagd - 
Reaktionstest - Labyrinth- 
mann - 17 +4 - Klemme - 
Dame - Lebensereignisse - 
Spinne und Fliege - Magi- 
sches Quadrat - Dr. Watson 
- Dr. Audio - Den letzten 
beißen die Hunde - Kette - 
GCOL - Klang - Sprin- 
geraufmarssch - GCOL- 
Tunnel - Changieren - 
Quadrat - Angriff aus dem 
Weltall - Pacspur. 

Die Daten: 1. Aufl. 1984, 121 
S., 14,80 DM 


Peter Shaw 
Spiele für Ihren 
Spectrum 


Da wir Peter Shaw schon als 
Autor des Oric-Bandes prä- 
sentiert haben, brauchen wir 
ihn hier nicht mehr vorzu- 
stellen. Beachtenswert ist 
aber, daß er sich die Mühe 
machte, für den Spectrum 
neue Programmierbeispiele 
zu entwickeln und die 
Oric-Spiele nicht einfach 
umschrieb: Eier retten - 
Springball - Nessie - Spinne 
und Fliege - Ascot-Schluck- 
mann - Spurfalle - 17 +4- 
Ausbruch - Excalibur gegen 
den Feind - Es regnet hinein 
- Landung auf dem Mars - 
Obstdieb - Die Teddys grei- 
fen an - Schlange gegen 
Dreiecke - Todesrennen - 
Farbenfolge - Autofahrt in 3 
Dimensionen - Sturzball - 


Clive Gifford 
Spiele für Ihren 
Dragon 


Unser Dragon-User vom 
Dienst ist mit seinen 17 Jah- 
ren bereits Student in den 
Fächern Politologie, Be- 
triebswirtschaft und Jura. 
Für die britischen Zeit- 
schriften "ZX Computing”, 
”Interface” und "Dragon’s 
Teeth” hat er schon eine 
Reihe vielbeachteter Artikel 
geschrieben. Mit "Spiele für 
Ihren Dragon” legt er sein 
zweites Buch über die Pro- 
grammierung des erfolg- 
reichen Heimcomputers 
vor. Mit folgenden Program- 
men hilft er Ihnen, alles aus 
Ihrem Drachen’ heraus- 
zuholen: Bilder mit Musik - 
Apolloflug - Muntermacher 
- Anagramme - Roulett - 
Schmetterling - Flucht aus 


Über die Autostraße - dem Schacht - Schöpfung - 
Henker - Videoverkäufer - Moire-Variationen - Holz- 
Staudammsprengen. fäller - Dame - ZX auf dem 
Die Daten: 1. Aufl. 1984, Heimweg - Guillotine - 
14,80 DM, Mahlstrom - Töne raten - 
Nachtfahrt - Die Büchse der 
Pandora - Opfer Großstadt 
- Ausreden. 
Die Daten: 1. Aufl. 1984, 97 
S., 14,80 DM 
Tölke/Tölke 
Textverarbeitung 


mit Programmen für TI-99/4A und VC-20 


Wer schon ein fertiges Text- 
verarbeitungsprogramm für 
seinen Heimcomputer besitzt 
oder erwerben möchte, er- 
fährt schrittweise und leicht 
verständlich, wie einfach 
dies prinzipiell möglich ist. 
Denn Basic als echte Dialog- 
Programmiersprache verfügt 
über eine zwar geringe An- 
zahl, dafür aber sehr lei- 
stungsstarke, hierfür geei- 
gnete "Zusatzbefehle” (Zei- 
chenketten-Operationen). 


Wer ein eigenes Programm 
entwickeln möchte, erhält 
eine Fülle von Anregungen 
Sieberücksichtigen verschie- 
denartige Gesichtspunkte 
und zwar in Form von kur- 
zen Demonstrationsbeispie- 
len, die sich gut analysieren 
lassen. 

Da jeder Basic-Computer ei- 
nen anderen "Dialekt" spricht, 
entstehen unter den vielen 
Heimcomputern gewisse 
Verständigungsschwierigkei- 


Aıı\ 


Mark Charlton 
Spiele für Ihren 
ZX-81 


Als Kolumnist des Fachma- 
gazins”Interface” ist der Ver- 
fasser des vorliegenden Ban- 
des einem breiten englischen 
Publikums bekannt gewor- 
den. Auf dem ZX-81 hat er 
bereits eingehende Erfah- 
rungen gesammelt, die ihren 
Niederschlag in ”The Gate- 
way Guide To The ZX-80 
And ZX-81” fanden, einem 
Handbuch, das in Groß- 
britannien eine beachtliche 
Auflage erreichte. Doch hier 
die Programmtitel des vorlie- 
genden Buches: Stadt - Falle 
- Panzerangriff- 20.000 Mei- 
len unter dem Meer - Ster- 
nenhändler - Schatzki- 
stenjagd - Bomben Nim - 
Poker - Nessie - Camel 
- Höhlen - Hurkles La- 
byrinth - Hinrichtung- Ana- 
gramme - Reaktion - Le- 
benswandelsbilanz - Ar- 
mada - Golf für 2 - der 
ZX-81-Berater - Audio Mor- 
se Test - Der ZX-81 Char- 
meur - Der Krawallge- 
nerator - Magisches Drei- 
eck. 

Die Daten: 1. Aufl. 1984, 127 
S., 14,80 DM 


ten - bezogen auch auf 
herkömmliche Anweisun- 
gen. Es war deshalb notwen- 
dig, sich auf zwei verbreitete 
Geräte zu beschränken. 
Diese Modelle sind der TI- 
99/4A (Texas Instruments) 
und der VC-20 (Commo- 
dore). Nur geringe Verständi- 
gungsschwierigkeiten wird 
es bei den Geschwistermo- 
dellen TI-99/A, CC-40 und 
Commodore 64 geben. 

Wer die Mühe der eigenen 


Chris Palmer 
Spiele für Ihren 
TRS-80 


Der Autor unseres Spiele- 
bandes für den TRS-80 ist 
seit Jahren ein Profi der 
Computerbranche und führt 
ständig Trainee-Programme 
für EDV-Leute durch. Den 
vorliegendert Titel schrieb er 
aus privater Begeisterung für 
diesen Computer und bietet 
eine ganze Reihe interes- 
santer Spielprogramme: 
Schatztruhe - Umzingelt - 
Computersenso - Zahlen- 
werfen - Biorhythmus - Die 
Roboter sind los - Verlies - 
Raupe - Aufsammeln - 17+ 
4 - Schaufler - Schreibma- 
schinenkurs - Sonar - Ana- 
gramme - Kaleidoskop - 
Höhlenungeheuer - Angriff 
im Weltraum - Landekapsel 
- Durcheinander. 

Die Daten: 1. Aufl. 1984, 103 
S., 14,80 DM 


Programmierung scheut, fin- 
det im Anhang ein fertiges 
und recht leitungsfähiges 
Programm, das nur noch in 
die schon erwähnten Com- 
puter einzugeben ist. 

Das Buch geht davon aus, 
daß dem Leser nur eine ein- 
fache technische Ausrüstung 
zur Verfügung steht (Kasset- 
tenlaufwerk und Drucker). 
Die Daten: Vieweg, 1. Aufl 
1984, 148 S. DM 36,-, ISBN 3- 
528-04276-1 


Wenn Sie sich dieses lustige 
Spiel etwas näher an- 
schauen, werden Sie als er- 
stes bemerken, daß nur zwei 
Tasten zur Steuerung be- 
nutzt werden, nämlich Zund 
X für Links und Rechts. 
Dies sollte Sie allerdings 
nicht abhalten: NIFTY 
LIFTY mag ein vergleichs- 
weise einfaches Spiel sein. 
primitiv oderlangweiligistes 
aber auf keinen Fall. 

Der Bildschirm präsentiert 
Ihnen eine Serie von Platt- 
formen, die allesamt durch 
einen Lift (daher auch der 
Name des Spieles) erreicht 
werden können. Auf jeder 
Plattform findet sich ein 
Sammelsurium der verschie- 
densten Gegenstände, vom 
Telefonapparat bis hin zum 
Goldsack. Sinn des Spieles 
istes nun, vom unteren Bild- 
schirmrand bis zur höchsten 
Plattform zu wandern und 
sämtliche Artikel einzusam- 


”Hustler” und 


Überall, wo Billardtische 
stehen, sind sie stets umla- 
gert. Anhänger des traellen 
Karambolage-Billards rüm- 
pfen zwar meist die Nase, 
handelt es sich doch bei die- 
sen Tischen um Repräsen- 
tanten des sogenannten 
"Pool Billards”, doch die vor- 
wiegend jugendlichen Spie- 
ler stört das recht wenig. Lei- 
der kostet ein solcher Tisch 
viel Geld. Sich so ein Ding zu 
Hause hinzustellen, kommt 
wohl nur Millionären in den 
Sinn. Selbst mancher Gast- 
wirt kommt arg ins Grübeln, 
wenn er so etwas bezahlen 
soll. Vom Raumbedarf einmal 
ganz zu schweigen. Was also 
tun, wenn man Billard-Fan 
ist? Zwar ein schwacher, aber 
immerhin ein Trost bietet 
sich den Besitzern von Ho- 
mecomputern, denn die 
Software-Industrie hat auch 
hier schon für Ersatz gesorgt. 
Zwar kann man - und des- 
halb der "schwache” Trost - 


80 CPU 


meln. 

Wenn Sie glauben, dabeiden 
Fahrstuhl benutzen zu kön- 
nen, irren Sie gewaltig: Der 
Lift istnicht Hilfsmittel, er ist 
Ihr Gegner. Sie rennen jede 
Plattform entlang, schnap- 
pen die umherliegenden 
Habseligkeiten und ver- 
suchen, über ein Treppchen 
am Plattformrand zum 
nächsthöheren Stockwerk zu 
gelangen. Der Lift fährt stän- 
dig auf und nieder und kann 
Sie, wenn Sie im falschen Au- 
genblick zur Stelle sind, in 
die Tiefe reißen. 

Sie sehen, Originalität erfor- 
dert nicht unbedingt umfang- 
reiche Technik: Selbst dieses 
einfache Prinzip fordert Sie 
ganz schön heraus. 

Wir meinen: Dafür, daß das 
Spiel erstens ohne Joysticks 
auskommt und zweitens für 
runde zwanzig Mark zu ha- 


ben ist, erhalten Sie erstaun- ® 


lich viel an Gegenwert. 


”Pool Challenge” 


natürlich beim Bildschirm- 
billard nicht für einen 
Wettkampf am echten Tisch 
trainieren, und auch die 
Kneipenatmosphäre läßt 
sich nur bedingt zu Hause 
imitieren, aber das Spiel sel- 
ber istähnlicher, als wires je- 
mals erwartet hätten. Nicht 
natürlich für den Spielerund 
seine Bewegungen, denn ob 
nicht mitdem Queue um den 
Tisch herumrenne, auf der 
Suche nach der besten 
Position, und ob ich dann 
sorgfältig die Stoßkraft kal- 
kulierend den Ball zu treffen 
suche, das alles läßt sich 
natürlich nicht mit der Bewe- 
gung des Joysticks ver- 
gleichen. Aber was die Ku- 
geln auf dem Spielfeld 
machen, das ist schon faszi- 
nierend echt. Je nachdem, ob 
die Kugel mit viel oder wenig 
Kraft gestoßen wurde, ob 
man in der Mitte oder an der 
Seite trifft, die "Kugeln” auf 
dem Bildschirm folgen den 


für den C-64 


Gesetzen der Physik fast so 
artig wie ihre echten Brüder 
auf dem grünem Filz. 

Für die Besitzer eines "Com- 
modore 64” gibt es gleich 
zwei verschiedene Arten 
Pool-Billard zu spielen, zu- 
nächst einmal "Hustler”, in 
der Bundesrepublik von 
Wicosoft in Herleshausen 
vertrieben. daneben aber 
auch "Pool-Challenge” von 
Ariolasoft. Der wesentliche 
Unterschied liegt einmal im 
Preis und dann im Komfort: 
”Hustler” ist eine Kassette, 
deren Programm von der 
Datasette geladen werden 
muß, und ”Pool-Challenge” 
ist eine Cartridge, die man 
einfach nur in den Schacht 
des Computers steckt, um 
spielbereit zu sein. Dieser 
Komforthat natürlich seinen 
Preis: Mehr als das Doppelte 
muß man dafüranlegen. Wer 
nur ein bißchen mehr Ge- 
duld hat, kann sich mit ca. 
DM 40,- das gleiche Spielver- 


gnügen mit dem Hustler in 
seinen Computer laden. Die 
beiden Spiele selbst sind 
weitgehend identisch, Unter- 
schiede bestehen vor allem 
darin, wie die Stärke des 
Queue-Stoßes einzustellen 
ist. im Bild und in der Ge- 
schwindigkeit, mit der die 
Kugeln sich auf dem Bild- 
schirm bewegen. Die Unter- 
schiede sind aber nicht so 
gravierend, daß sie jeman- 
den abschrecken sollten, sich 
den etwas langsameren "Hu- 
stler” zu erstehen, wenn er 
auf den Pfennig achten muß. 
Verschiedene Schwierigkeits- 
grade, verschiedene Spiel- 
versionen gibt es bei allen 
Spielen und auch die Mög- 
lichkeit, allein oder zu zweit 
zu spielen. Dann übrigens 
kann sich sogar so etwas wie 
Billard-Salon Atmosphäre 
einstellen. 
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Pssst, Papi - 2. — 7, 

stör’ ihn ble& nicht !.. 

Vielleicht Findet er a 23. 

die ROH- Cartridge, — 
ie ich letzte 

ER late verschlantpt habe ... 


ENDLICH SIND 
SIEDA- 


die Mappen die Schluß 
machen mit dem Durch- 


einander in Ihrer GPU. 


Sammlung 


x Zum Freundschaftspreis von 12,50 DM inclusive 

u Verpackung pro Stück (nur Vorauskasse per 

u Scheck) mit Bezeichnung des Ordners (für HC oder CPU 
und Angabe der Stückzahl) können Sie schon kurze Zeit 


nach Bestellungseingang, die in Verarbeitung und Farbe sehr 
ansprechenden Ordner, in den Händen halten. 


Überweisungen bitte auf das Konto-Nr.: 45 22 934 
bei der Kreissparkasse Eschwege, 
Bankleitzahl 522 500 30 


++sror- WII coSso FT +++STOP+++ Stark reduzierte Preise +++STOP+++ Sta 


commodore 64 
82004 
cB2010 
cB2012 
cB2015 
c82019 
cB2022 
c82029 
82030 
82031 
82032 
82033 
682003 
82005 
82007 
82011 
cB2014 
82020 
cB2013 


++STOP+++ Stark reduzierte Preise +++STOP+++ Stark re 


sn? 
en 
go Te 


Bestellen bei: 
WICOSOFT, Nordstr. 22, 3443 Herleshausen 
Bitte benutzen Sie unsere Bestellkarte 


Stark reduzierte Preise +++STOP++ + Stark reduzierte Preise +++STOP+++ Stark reduzierte Preise ++ 


Na WIEIS L IL -LANIC HL a8191d 3119IZNDII MIPIC LLLANIS HL L 3Sıald 3US1zNP31 MIEIS + + +IO IS ++ ISIaUd JUIIZNP3J YIEIS + ++dOIS+-++ 


+++STOP+++ Stark reduzierte Preise +++STOP+++ Stark reduzierte Preise + 
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Bestellkarte 


Ich möchte CPU ab der nächsterreichbaren Ausgabe zum günstigen 
Abonnementspreis von 55,- DM für 12 Ausgaben, monatlich ins Haus 
geliefert bekommen. 


Name/Vorname 


Straße PLZ Ort 


Ich wünsche folgende Zahlungsweise (12 Hefte jährlich DM 55,- innerhalb der BRD, 
‚Ausland siehe Impressum) 


BLZ (vom Scheck abschreiben) 


DO Bargeldlos u: quem durch Bankı 


Konto-Nr. Geldinstitut 


OD) Gegen Rechnung 
(keine Vorauszahlung leisten) 


Mir ist bekannt, daß ich diese Bestellung innerhalb 8 Tagen widerrufen kann. 


Datum/Unterschrift 


Diese Karte ausschneiden oder Fotokopieren und einsenden an umseitige Adresse. 
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er) 


= 
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Bestellkarte 


Ich möchte CPU und Homecomputer ab der nächsterreichbaren Ausgabe zum 
günstigen Abonnementspreis von 100,- DM für 24 Ausgaben, vierzehntägig ins 
Haus geliefert bekommen. 


Name/Vorname 


Straße PLZ Ort 


Ich wünsche folgende Zahlungsweise (24 Hefte jährlich DM 100,- innerhalb der BRD, 
Ausland s. Impressum) 


O Bargeldios u: BLZ (vom Scheck abschreiben) 


durch Bankeinzug: 


Konto-Nr. Geldinstitut 


OD Gegen Rech! 
(keine Vorauszahlung leisten) 


Mir ist bekannt, daß ich diese Bestellung innerhalb 8 Tagen widerrufen kann. 


Datum/Unterschrift 


Diese Karte ausschneiden oder Fotokopieren und einsenden an umseitige Adresse. 
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Garantie 


Wir senden Ihnen 

CPU und Homecomputer regel- 
mäßig ab der 
nächsterreichbaren Ausgabe zu. 


x 


Die Lieferung erfolgt frei Haus 
inclusive Mehrwertsteuer und 
Zustellgebühren. 


x 


Sie können Ihre Abbonnements 
jeweils 8 Wochen vor Ablauf der 
12-monatigen Mindestbezugs- 
dauer schriftlich kündigen. 


x 


Bitte 
frei 


machen 


Honecomputeg, 


Verlagsunion 


Friedrich-Bergius-Straße 7 
Postfach 5707 


6200 Wiesbaden 


Garantie 


Wir senden Ihnen 
CPU regelmäßig ab der nächster- 
reichbaren Ausgabe zu. 


> 


Die Lieferung erfolgt frei Haus 
inclusive Mehrwertsteuer und 
Zustellgebühren. 


M 


Sie können Ihr GPU-Abonnement 
jeweils 8 Wochen vor Ablauf der 
12-monatigen Mindestbezugs- 
dauer schriftlich kündigen. 


Br 


Bitte 


frei 
machen 


Verlagsunion 


Friedrich-Bergius-Straße 7 
Postfach 5707 


6200 Wiesbaden 
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Erleben Sie die Fascination der Computer- 


von John van der Reyden 


Technik! 
IE Knae für wenig Geld bietet Ihnen dieses ” «Ram a de 
% aaa für den ORIC 1 entwickelte Jummer 1 in Sachen Commodore programmie- 
Programme: zB. Luna Länder, Eliminator, Sea en ni a 
Copter und viele mehr, die Ihnen zeigen, welche ir ‚gelobt. 


vi Jedes der hier vorgestellten Programme macht 
Farben, Grafiken und welch herrlichen Sound der hervorragenden Gebrauch von den Fähigkeiten, 
ORIG produzieren kann die den Commodore 64 gegenüber anderen 
Selbsverständlich fehlen auch praktische Tips EN lea 

nicht, die fü alte Hasen ebenso interessant sind, Commodore 64-Amender sie” di 

wie für junge Füchse! ie) See 
Eine ideale Ergänzung dieses Computers! u 


DM 29,80 DM 29,80- 


VC-20 Innovative Computing 


Ramshaw 


Ein Buch, geschrieben von einem der kreativsten ”" 
Programmierer in der Microcomputer Welt 
Spannende, interessante Spiele wie Nucia 
Attack, Space Fight, Hopper, Invasion, Squash, 
nd Prix, Adventure, und sogar Schach! 
Komplette Listings all dieser und wellerer Spiele, 
leicht verständlich mit vielen Tips und Tricks. 
angereichert, eröffnen Ihnen neue Dimensionen, 


Ihres VC-20, DM 29.80 


u up 
INNISSSS All 


Das Virgin Gomputer- De Gin 20 
bücher-Prog werden in diesem Buch anschaul 


Eine Einführung in die Maschinenspraihepk 

grammierung. ein Maschinenspl p 2 

gramm als Demonstration und Er MACHINE LANGUAGE SIMPLE FOR 

Maschinenroutinen in Basicprogri YOUR SINCLAIR & TIMEX T81000 

baut, enthält dieses Buch. Alle erfördenlig von Melbourne House 

Tabellen und Zeicherklärungen sind Die Beherrschung des Z80, 2X-81 und Timex 

DM 5 d TS1000 über Basic bis zur Programmierung n 

Maschinensprache, wird in diesem Buch po- 
pulär dargestellt: Jedes Maschinen- 
sprachekommando wird mit ausführlichen 
Beispielen erläutert. Tabellen und Zeichener- 
klärungen runden das Angebot ab. 


DM 35,00 


einzelne Buch enthält mehr 


# als 20-komplette, spielfertige 
R ‚grammlistings für den 
hetreffenden Computer. 


Jedes Buch nur 
DM 19,80 


COMMODORE 64 EXPOSED 
von Braca Baylay 

Der ausführliche Führer, der Sie zum Meister 

Ihres Commodore 64 macht! 


Spectrum Hardware Manual 
von Adrian Dickens n 


Dieses Buch ist eine Enzyklopädie, die über Der Sinclair ZX-Spectrum hat die Computerwelt 
alle Möglichkeiten dieses hervorragenden a revolutioniert 
Computers anschaulich berichtet Ob Sie nun 7 | Dieses Buch erklärt das Geheimnis seines 


Fortgeschrittener sind, di Erfolges und wie das Gerät arbeitet. Viele 
ee wermiehile u ‚Aspekte, die das offizielle Manual nicht oder nur 
5 kurz streift, werden Ihneh hier ausführlich 
DM 35,00 3 . vorgestellt: Wie die Farben Ihres TV-Monitors 

2 


‚optimal eingestellt werden können, wie der 


interne Lautsprecher durcheinen.anderenersetzt. 


Bitte benutzen Sie unsere Bestellkarte auf der Um- aA, Be a sam m 
schlagseite. Über 250 weitere Spiele finden Sie in 3445 Werleshausen 00 


unserem Katalog. Bitte anfordern bei: Tel. 05654/6182 


